Tastendruck

[Matze]

Dann mach's so:

Code:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 226 then memo1.Color:=clyellow;
  //für die <-Taste
end;

Gruß Matze