1:
2:
3:
4:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin

end;					

1:
2:
3:
4:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = 'a' then ShowMessage('Noch einfacher geht es nicht.');
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if GetAsyncKeyState(VK_UP) <> 0 then 
    ShowMessage('Hoch');

  if GetAsyncKeyState(VK_Down) <> 0 then
    ShowMessage('Runter');
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if not gedrueckteTaste=nil then //oder none? - die beiden Begriffe bekomme ich immer wieder durcheinander...
   gedrueckteTaste:=Key;
end;					

1:
2:
3:
4:
5:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key=gedrueckteTaste then
   gedrueckteTaste:=nil; //oder none? - die beiden Begriffe bekomme ich immer wieder durcheinander...
end;					

1:
2:

if gedrueckteTaste=VK_CTRL and Key='a' then
   ShowMessage('Richtige Tastenkombination!');					

1:
2:
3:
4:
5:
6:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = Ord('a') and (ssCtrl in Shift) then 
    machDasWasGemachtWerdenSoll;
end;