Strg+F8 --> Procedure aufrufen

[Nalincah]

Ich hab ein Memo und wenn man Strg + F8 drückt soll der die procedure von Button4 aufrufen. Hab bisschen im Forum gesucht und mir das hier zusammengebastelt...Klappt aber leider nicht

Delphi-Quellcode:

procedure TDB_Frame.Button4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((Shift = [ssCtrl]) and (Key = VK_F8)) then
    Button4.Click;
end;