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

function TForm1.CreateNewForm: Boolean;  // Unter Private eintragen
begin
  Result := True;
  with Form2 do Tag := Tag + 1; // Damit die Namen unterschiedlich sind
  with TForm2.Create(Application) do try
    Name := 'Form_' + IntToStr(Form2.Tag);
    Caption := 'Form_' + IntToStr(Form2.Tag);
    Left := Random(Screen.Width);
    Top := Random(Screen.Height);
    Show;
  except Result := False end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateNewForm;
end;