[4kusNick]

Код:

procedure Form1.Button3Click(Sender);
begin
  SomeForm.Create;
  SomeForm.ShowModal;
  SomeForm.Free;
end;