Изменение координат по таймеру [Delphi]

[Oldcentre]

Имеются: круг типа TShape, таймер и форма. Надо, чтобы круг двигался по таймеру и отскакивал от стен.
Мой вариант происходящего (не очень работает):

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if
Ball.left=0
then
Ball.left:=ball.left+2;
if
Ball.top=0
then
ball.Top:=ball.Top+2;
if
Ball.left=320
then
Ball.left:=ball.left+2;
if
Ball.top=320
then
ball.Top:=ball.Top-2;

end;
end.

При таком раскладе круг просто стоит на месте.

[Ivan_Susanin]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// изменение координат 
ball.left:=ball.left+SpeedX;
ball.top:=ball.top+SpeedY;

// отскок
if Ball.left<=0    then SpeedX:=-SpeedX;
if Ball.top<=0    then SpeedY:=-SpeedY;
if Ball.left=>320 then SpeedX:=-SpeedX;
if Ball.top=>320 then SpeedY:=-SpeedY;

end;

[evg_m]

to Ivan_Susanin
еще добавить собственно отражение (кроме смены скорости) при выходе за границы
иначе может кратковременно(на один такт) выскочить за пределы области.

if ball.left>maxleft then 
begin 
  ыpeedx:= - speedx; 
  ball.left:=ball.left - maxleft; 
end;

[Oldcentre]

if Ball.left<=0    then SpeedX:=-SpeedX;

Выкидывает ошибку. Где-то надо объявить speedX? И как?

[Tronix]

Ну это же просто приращение в пикселях. Можно поставить единицу - будет плавно летать, можно поставить 10 - будет рывками скакать. Объявить можно глобально, да где угодно вообще:

var
speedx : integer = 1;
speedy : integer = 1;

[Naive]

Сообщение от Oldcentre

if Ball.left<=0    then SpeedX:=-SpeedX;

Выкидывает ошибку. Где-то надо объявить speedX? И как?

procedure TForm1.Timer1Timer(Sender: TObject);
var speedx,speedy:integer;
begin
speedx:=10;
speedy:=10;

[Oldcentre]

Теперь его не устраивает MaxLeft.
Я пробовал объявить его как 320, но тогда эффект получается совсем не такой, какой нужно.

procedure TForm1.Timer1Timer(Sender: TObject);
var speedx,speedy, maxleft:integer;
begin
speedx:=10;
speedy:=10;
maxleft:=320;
ball.left:=ball.left+Speedx;
ball.top:=ball.top+SpeedY;
if Ball.left<=0  then SpeedX:=-SpeedX;
if Ball.top<=0  then SpeedY:=-SpeedY;
if Ball.left=320 then SpeedX:=-SpeedX;
if Ball.top=320 then SpeedY:=-SpeedY;
if ball.left>maxleft then
begin
  speedx:= - speedx;
  ball.left:=ball.left - maxleft;
end;
end;

end.

Круг доходит до искомой точки, затем резко выбрасывается влево и продолжает тот же путь.
Как грамотно объявить maxleft, чтобы его не переносило резко влево?

[evg_m]

попробуйте хотя бы раз повторить за комьютером то что вы написали.
breakpoint $ F8

if Ball.left<=0  then SpeedX:=-SpeedX;
if Ball.top<=0  then SpeedY:=-SpeedY;
if Ball.left=320 then SpeedX:=-SpeedX;
if Ball.top=320 then SpeedY:=-SpeedY;
if ball.left>maxleft{320} then
begin
  speedx:= - speedx;
  ball.left:=ball.left - maxleft;
end;