[oper]

Эм... Вставить мб процедуру?

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Form2.ShowModal;
end;

Тогда при нажатии любой клавиши будет появляться модальное окно