تعریف کلیدهای ترکیبی

با سلام
من چگونه میتوانم از کلیدهای ترکیبی جهت انجام کاری استفاده کنم مثلا میخواهم کلیدهای Ctrl+F3 را برای انجام دادن کاری تعریف کنم کد کلید Ctrl+F3 را چگونه بایستی تعریف کنم
با تشکر

[LEFT]Form1.KeyPreview:=True;[

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if (Key = VK_F3) and ([ssCtrl] = Shift) then

  begin

    Key := 0;

    ShowMessage('Got Ctrl+f3');

  end

end;

/LEFT]