[Nothing]

Ну идет примерно так

Код:

procedure TForm1.N7Click(Sender: TObject);
begin
bla-bla-bla;
bla-bla-bla;
bla-bla-bla;
  with TForm2.Create(self) do
  try
    ShowModal;
  finally
    Free;
  end;
{Дальше действия не идут пока не закроетсся форма}
bla-bla-bla;
bla-bla-bla;
bla-bla-bla;
bla-bla-bla;
end;