ارسال پیام با فشردن کلید F12

[khoshblagh]

با سلام خدمت دوستان
میخواهم با فشردن کلید F12 پیامی نمایش داده شود.من از کد زیر با مثل Esc میتوانم پیام را نمایش دهم ولی برای F12 نمیدانم از چه کدی استفاده نمایم؟ متشکرم

if Key=Char(123) then showmessage(strCompany);

[یوسف زالی]

سلام.
VK_F12

[khoshblagh]

با تشکر از پاسختان به صورت زیر کد جواب نداد.

if Key=Char(VK_F12) then showmessage(strCompany);

[khoshblagh]

با تشکر از جناب آقای زالی
این را در نت پیدا کردم.

procedure TfrmMainForm.FormKeyUp(Sender: TObject; var Key: Word;  Shift: TShiftState);begin if (Shift = []) and (Key = VK_F12) then    ShowMessage(strCompany);end;