du brauchst eine SetMethode. Denn auf diese Art und weise wird nur der Pointer (TStringlist) gesetzt. So geht es:
Delphi-Quellcode:
TTest = class(TComponent)
private
fdieListe : TStrings;
procedure FSetDieListe(AListe: TStringlist);
public
Create(AComponent: TComponent);override;
published
property dieListe : TStrings Read fdieListe Write FSetDieListe;
end;
procedure TTest.FSetDieListe(AListe: TStringlist);
begin
if AListe = nil then
fdieListe.Clear
else
fdieListe.Assign(AListe);
end;