Möchte man die Tastencodes herausfinden hilft dieses kleine Proggie:

[code:1]
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
edit2.Text:=inttostr(key);
case key of
38: form1.Color:=clblue;
37: form1.Color:=clred;
39: form1.Color:=clyellow;
40: form1.Color:=clgreen;
else
form1.Color:=clbtnface;
end;
end;


end.
[/code:1]

Die Sache mit den Farbwerten ist nur eine kleine Spielerei um die Arbeit mit den Codes zu verdeutlichen