[ContraVeneno]

Código Delphi [-]
procedure TForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 If (Key=VK_F5) and (ssCtrl in shift) and (ssShift in shift) and (ssAlt in Shift) Then begin
     showmessage('press, press, press');
end;