طريقه استفاده از حالت SHift در رويداد OnKeyDown

سلام
چه طور ميشه كد تركيبي كليد Ctrl + C را به دست آورد؟
ممنون

کد:

---

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Shift = [ssCtrl]) and (Key = 67) then
    ShowMessage('Ctrl + C')
end;

---

کد Key = 67 نسبت به اینکه چه کلیدی رو میخواهی بزنی عوض میشه .

ممنون از كمكتون