comando en delphi

[sferron1]

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
    //67 y 99 son el código ascci de C y de c 
    if ((key=67) or (key=99)) and (ssCtrl in Shift) then
        Close;
end;

Espero que te sirva de ayuda.