//В обработчике события OnCreate

//основной формы создаём горячую клавишу:

If not RegisterHotkey

  (Handle, 1, MOD_ALT or MOD_SHIFT, VK_F9) Then

  ShowMessage('Unable to assign Alt-Shift-F9 as hotkey.');

//В событии OnClose удаляем горячую клавишу:

 UnRegisterHotkey( Handle, 1 );

//Добавляем обработчик в форму для сообщения

//WM_HOTKEY:

 private // в секции объявлений формы

  Procedure WMHotkey( Var msg: TWMHotkey );

  message WM_HOTKEY;

Procedure TForm1.WMHotkey( Var msg: TWMHotkey );

 Begin

  If msg.hotkey = 1 Then Begin

  If IsIconic( Application.Handle ) Then

  Application.Restore;

  BringToFront;

  End;

 End;