Existe la opción "manual", que se puede hacer con un TIniFile o con un fichero de Texto (y un memo -SaveToFile-) y sería guardando líneas con los nombres de las propiedades y sus valores.
Una alternativa más automática, pero que guarda TODAS las propiedades, no sólo las que tú necesites es utilizar
WriteComponent de los Streams.
Creo que esta función ya ha salido antes en los foros; También puedes encontrarla
aquí. Es para obtener justo el textoque has colocado en tu mensaje.
Código Delphi
[-]
function ComponentToString(Component: TComponent): string;
var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free;
end;
finally
BinStream.Free
end;
end;
Te adjunto un ejemplo de cómo utilizarla.