Hotkeys in a form

Set the form's KeyPreview := true

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

   If ( ssCtrl In Shift ) And ( chr ( Key ) In [ 'A' , 'a' ] ) Then

      ShowMessage ( 'Ctrl-A' ) ;

end;