Mehrere Memo Objekte in TStringlist erzeugen

[Neutral General]

Das Memo erscheint doch gar nicht weil es kein Parent zugewiesen bekommen hat oder?

Delphi-Quellcode:

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

So klappts nämlich...

Gruß
Neutral General