// diese Funktion erzeugt ein neues Form aus dem aktuellen Form
function TForm1.CloneForm: TForm;
var
  mstream: TMemoryStream;
begin
  mstream := TMemoryStream.Create;
  try
    mstream.WriteComponent(self);
    // der Trick: die aktuelle Klasse wird nach TFormClass gecastet
    // und dann mit CreateNew eine neue, leere Instanz erzeugt
    Result := (TFormClass(Self.ClassType)).CreateNew(Application);
    mstream.Position := 0;
    mstream.ReadComponent(Result);
  finally
    mstream.Free
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  f : TForm;
begin
  f := CloneForm;
  f.Visible := False; // unsichtbar machen
  f.Caption := 'this is the cloned form';
  f.Left := f.Left+10;
  f.Top := f.Top +10;
  f.ShowModal; // modal anzeigen
  f.Free;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  f : TForm2;
begin
  f := CloneForm as TForm2;