[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]