Delphi отлов нажатия клавиш

[Pixelrom33]

Попросту не срабатывает событие нажатия клавиш. Вот такой код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Close;
end;

end.

KeyPreview установлен true. Помогите плз, что делать?

[Кольша]

окно в фокусе?у меня все работает!

[Аватар]

На активной форме при нажатии любой клавиши срабатывает, для мыши нет и не должно. Убедитесь, что в событии OnKeyUp формы прописана ссылка на FormKeyUp

[Pixelrom33]

Аватар, "Убедитесь, что в событии OnKeyUp формы прописана ссылка на FormKeyUp" - можно по подробнее? как это сделать?
P.S. само собой я и не рассчитывал на мышку.

[Аватар]

Из активной формы в дельфях F11 и в закладке Events окна Object Inspector смотреть что в событии OnKeyUp формы

[Pixelrom33]

Аватар, спасибо большое) ни в каких учебниках этого не нашел)