[dec]

Hola,

Depende de dónde quieras realizar la comprobación. En el evento "OnKeyUp" de un formulario la cosa podría quedar más o menos así:

Código Delphi [-]
procedure TForm1.FormKeyUp(Sender: TObject;
 var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_F5) and (ssCtrl in Shift) then
  begin
    ShowMessage('Pulsaste CTRL + F5');
  end;
end;

En el evento de un "TTimer" la cosa podría tal vez quedar como sigue:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (GetKeyState(VK_CONTROL) < 0)
   and (GetKeyState(VK_F5) < 0) then
  begin
    ShowMessage('Pulsaste CTRL + F5');
  end;
end;