Ctr+с в KeyDown

[Xenar]

Доброго дня.

Есть ли у кого рабочий пример срабатывания сочетания типа Ctr+с в KeyDown
По раздельности работает. Вместе нет.
Примеры из Delphi не срабатываю.

[WAYFARER]

Код: Выделить всё

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  if (ssCtrl in Shift) and (key = Ord('C')) then
    Showmessage('Hello, World!');
end;    

[Xenar]

не работает, проверял

[WAYFARER]

Работает. Проверял в
Lazarus 1.0.10 FPC 2.6.0 x86_64-linux-gtk 2
ubuntu 13.04 Unity

Давай остальную информацию, с примером.

[Vadim]

Xenar
Вы забыли Form1.KeyPreview:=True поставить.