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.