Tastendruck

[Matze]

Code:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if VK_... then ...;
end;