Puedes probar lo siguiente:
1. en el form principal activa la propiedad KeyPreview a true.
2. En el OnkeyUp del form principal ejecutas el código
Código Delphi
[-]
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((key=67) or (key=99)) and (ssCtrl in Shift) then
Close;
end;
Espero que te sirva de ayuda.