procedure TCustomComp.DefineProperties(Filer: TFiler);
begin
inherited DefineProperties(Filer);
Filer.DefineProperty('CompVersion', LoadVersionProperty, StoreVersionProperty, True);
end;
procedure TCustomComp.LoadVersionProperty(Reader: TReader);
begin
CompVersion := Reader.ReadInteger;
end;
procedure TCustomComp.StoreVersionProperty(Writer: TWriter);
begin
if not self.LoadedFromLFM then
CompVersion := UpdatedValue;
Writer.WriteInteger(CompVersion);
end;