Вложенный вызов обработчика ( проще - дублирование выполнения команды)

[DeKot]

Как ни странно, зашел в тупик. Задача простая - на форме есть кнопка ( Button1), по нажатию которой формируется событие ( скажем на форму выводится сообщение - " Button1-YES'.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Canvas.TextOut(100,100,'Button1 - YES');
end;

Теперь надо продублировать событие нажатием кнопки на клавиатуре ( допустим кнопкой "X").
Теория предлагает:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);  // процедура нажатия клавиши на клавиатуре
begin
  if Key = 88 then Button1Click(Sender);  // код клавиши X (англ. раскладка) = 88
end;

НЕ РАБОТАЕТ! Что я здесь упустил?

[Пепел Феникса]

KeyPreview=true?

[DeKot]

KeyPreview=true?

Было false. Поменял - все пошло как надо. Спасибо тебе большое Пепел Феникса.