Teclas virtuais Delphi (Virtual Keys)

Exemplo:   procedure TFormCancITEM.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F5 then   // Calendário
    Interno108
  else if Key = VK_F6 then // Calculadora
    Interno109
  else if Key = VK_F7 then // Agenda
    Interno110;
  if Key = VK_Escape then
     begin
      TabGlobal.DITEMMESA.filter   := ”;
      TabGlobal.DITEMMESA.filtered := false;
      DbGrid1.visible := false;
      close;
     end;
end;