Vielen Dank hat geklappt wie du es gesagt hast
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1. Visible := true;
Form2 := TForm2.Create(Application);
Form2. Visible := true;
Form2. enabled := true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form2.Free;
end;
end.
MfG