Код покаж. А лучше прогу в архив и сюда кинь.
Форма1
Код:
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.showmodal;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
Форма2
Код:
uses Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.close;
end;