create form wiederfinden problem

[tomsel]

würde nicht auch dieses gehen:

Delphi-Quellcode:

function tform1.openwindow(id: string):string;
var
  myForm: TForm2;
begin
  if listbox1.Objects[listbox1.itemindex] = nil then begin

    myForm:=  TForm2.Create(application);
    myForm.Show;
    myform.Caption := listbox1.items[listbox1.itemindex];

    listbox1.Objects[listbox1.itemindex] := tobject(myform); // <------------------------!!

    myform.Memo1.Lines.Add('hallo'+listbox1.items[listbox1.itemindex]);

  end else begin

    myform := tform2(listbox1.Objects[listbox1.itemindex]);
    myform.bringtofront;

  end;

end;