модальные же не обязательно создавать вручную
но вобще сейчас проверил чтобы форма себя клонировала (работает):
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Tform1.create(Self) do
try
showmodal;
finally
free;
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Owner is TForm1) then
(Owner as TForm1).Edit1.Text := Edit1.Text
else
Caption := Edit1.Text;
end;