[Yosuun]

Hola, en evento onkeydown del control puedes hacer algo asi,

Código Delphi [-]
procedure TWFichaAseguradoSUD.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If (Uppercase(chr(Key))='G') and (ssCtrl in shift) and (ssAlt in Shift) Then
     Begin
      {...}
     End;
End;

Creo que seria algo asi espero que te sirva de ayuda.

Un Saludo.