delphi компонент shape - Нужно кружок поднять по лестнице 8 ступенек по 50 пикселей и затем спустить обратно в исходное положение.

[dol]

Нужно кружок поднять по лестнице 8 ступенек по 50 пикселей и затем спустить обратно в исходное положение.
Начальная позиция left =0; top = 408, а конечная left = 400; Top=8.

procedure TForm1.TimerTimer(Sender: TObject);
var x,y: integer;
begin
x:= 50;
y:= 50;

  if (shape1.Left < 400) and (shape1.Top > 8 ) then
   begin
    shape1.left:=shape1.Left+x;
    shape1.top:=shape1.top-y;
   end
  else
    begin
      shape1.left:=shape1.Left-x;
      shape1.top:=shape1.top+y;
    end;

У меня круг поднимается как надо до последней ступени, потом спускается на одну ступень вниз и снова поднимается на верхнюю ступеньку.
Я понимаю, что дело в этой строке (shape1.Left < 400) and (shape1.Top > 8), как мне изменить это условие, чтобы круг спускался по ступенькам до самого конца?

[newerow1989]

var z:integer=1;

procedure TForm1.Timer1Timer(Sender: TObject);
var x,y: integer;
begin
   x:= 50;
   y:= 50;
   shape1.left:=shape1.Left+z*x;
   shape1.top:=shape1.top-z*y;
   if (z>0) and ((shape1.Left >= 400) or (shape1.Top <= 8)) or
      (z<0) and ((Shape1.Left <= 0) or (Shape1.Top >= 408)) then
      z:=-z;
end;

[dol]

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

Код:

var z:integer=1;

procedure TForm1.Timer1Timer(Sender: TObject);
var x,y: integer;
begin
   x:= 50;
   y:= 50;
   shape1.left:=shape1.Left+z*x;
   shape1.top:=shape1.top-z*y;
   if (z>0) and ((shape1.Left >= 400) or (shape1.Top <= 8)) or
      (z<0) and ((Shape1.Left <= 0) or (Shape1.Top >= 408)) then
      z:=-z;
end;

Спасибо, все работает!Пожалуйста, оформляйте Ваш код согласно правилам.

[newerow1989]