var kierunek: integer;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_LEFT) then kierunek := 1;
if (Key=VK_RIGHT) then kierunek := 2;
if (Key=VK_UP) then kierunek := 3;
if (Key=VK_DOWN) then kierunek := 4;
end;
procedure TForm7.Timer1Timer(Sender: TObject);
begin //tutaj może trzeba będzie coś zmienić, robiłęm na czuja ;)
if (kierunek = 1)
Shape1.left :=(Shape1.Left+5) mod Width;
if (kierunek = 2)
Shape1.left :=(Shape1.Left-5) mod Width;
if (kierunek = 3)
Shape1.left :=(Shape1.Top+5) mod Width;
if (kierunek = 4)
Shape1.left :=(Shape1.Top-5) mod Width;
end;
No jest już lepiej jak było na początku , bo Shape rusza się tak jak powinien w lewo i w prawo, tylko muszę jeszcze pomyśleć na góra i dół, bo wtedy Shape stoi w miejscu. THX