Uso del Objeto TList

[[Lepe]]

Metiendome donde no me llaman, considero oportuno que digas el objeto de que tipo es, ya que los ejemplos son con Tedits, pero si es un objeto personalizado, podría haber otras alternativas, me explico:

Código Delphi [-]
type  Tmio = class (tobject)
private
  FTexto : string;
  procedure SetValor(const Value:string);
public
  property Texto:string read FTexto write SetValor default '< cadena por defecto >';
end;

implementation

 procedure Tmio.SetValor(const Value:string);
begin
   if value <> FTexto then
   begin
      FTexto := Value + ' añado esta cadena automaticamente';
   end;
end;

De esta forma, al crear el objeto, la cadena texto tiene un valor distinto a cadena vacia, y cuando se modifique la propiedad Texto del objeto, automaticamente se puede hacer otras cosas, sin tener que llamar al método Modifica.

Puede que te sirva, o puede que no, sin saber lo que estas haciendo es imposible contestarte correctamente.

Saludos y perdon si no viene al tema.