Mehrere Memo Objekte in TStringlist erzeugen

[xthing]

Hi Leute,

ich möchte in einer TStringlist mehrere Objekte vom Typ TMemo dynamisch erzeugen. Wenn ich allerdings das Memoobjekt verwenden will gibt's ne Fehlermeldung. Hier der Sourcecode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
obj : TStringList;
begin
obj := TStringList.Create;
obj.AddObject('Memo', TMemo.Create(self));
TMemo(obj.Objects[0]).lines.add('test');
end;

Könnt ihr mir helfen?

Danke im voraus.

Gruss
xthing