procedure TForm1.Button1Click(Sender : TObject); begin {здесь что-то делаем} // Вызываем 2ю форму и ждем, пока она закроется Form2.ShowModal; {здесь продолжаем что-то делать} end;