Delphi 7. Возник вопрос

Насколько я знаю в любой сборке Delphi есть компонент "Application Events", у которго есть соответствующее событие "OnShortCut", так вот разместите на форме данный компонент (в 7 версии Delphi он должен лежать во вкладке "Additional") и запишите в его свостве OnShortCut следующее: procedure TForm1.ApplicationEvents1ShortCut (var Msg: TWMKey; var Handled: Boolean); beginIf Msg.CharCode=Ord ('G') thenForm1.Close; end; Ord ('G') — функция возвращающая код символа, в ее параметр записывайте непосредственно тот символ, по нажатию которого должна прекратить работу ваша программа.