1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  Form: TForm;
begin
  Form := TForm.Create(Self);
  Form.Show;
end;

//Ereignis OnClose
Action := caFree;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

uses ...,unit2;

...
var
fenster:tform2;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
try
  fenster:=TForm2.Create(Self);
  fenster.Name:=form1.buddysneu.selected.caption;
  fenster.Caption:='Unterhaltung mit '+form1.buddysneu.selected.caption;
  fenster.Show;
  finally
  findcomponent(form1.buddysneu.selected.caption);
  fenster:=TForm2(FindComponent(form1.buddysneu.selected.caption));
  fenster.SetFocus;
end;