Du kannst es beispielsweise über das KeyUp-Ereignis der Form machen.
Dazu musst du bei der Form KeyPreview auf true stellen und ansonsten halt ungefähr so:
Delphi-Quellcode:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssShift in Shift) and (Key = Ord('S')) then //dies würde beispielsweise bei Shift + S ausgelöst
//Aktion.................
//zu langsam, oder natürlich KeyDown^^
Johannes M.
.