Salut

Assigne la valeur à Toto par copie en utilisant Assign:


procedure TComposant.SetToto(const Value: TStrings);
begin
if Value.Text <> FToto.Text then
FToto.Assign(Value);
end;