KeyPress Problem

[hitzfeld]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
if ((Key = 17) and (Key = 39)) then begin 
Panel1.left:=  Panel1.left+1; 
end; 

if ((Key <> 17) and Key = 39)) then begin 
Panel1.left:=  Panel1.left+10; 
end; 
end;

Vielleicht hilft das?

Gerd