per buttonklick neues fenster öffnen

[himitsu]

Bitte hierfür eine lokale Variable dafür verwenden und nicht die Globale.

Delphi-Quellcode:

procedure TForm1.OnButtonClick( Sender: TObject);
var 
  Form2: TForm2; 
begin
  Form2 := TForm2.Create(Self);
  try
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;

oder Keine.

Delphi-Quellcode:

procedure TForm1.OnButtonClick( Sender: TObject);
begin
  with TForm2.Create(Self) do 
    try
      ShowModal;
    finally
      Free;
    end;
end;

und wenn die Fenster paralell nutzbar sein sollen, dann

Delphi-Quellcode:

MyForm2 := TForm2.Create(Self);
MyForm2.Show;

und irgendwann dann ein 
MyForm2.Free;