Как назначить конечную координату X

[soniag]

Моя картинка начинает движение с координаты 160 по оси X, как сделать так, чтобы он дошла до координаты 200 и вернулась обратно...
Вообщем нужно создать бесконечное движение между двумя этими координатами)..что нужно добавить в программу?

procedure TForm1.shar;
begin
PosX:= PosX+VelX;
PosY:= PosY+VelY;
if PosX > ClientWidth - Image1.Width then
begin
PosX:= ClientWidth - Image1.Width;
VelX:= - VelX;
end
else if PosX < 160 then
begin
POsX:= 160;
VelX:= - VelX;
end;
       if PosY > ClientHeight - Image1.Width then
       begin
       POsY:= ClientHeight - Image1.Width;
       VelY:= - VelY;
       end
       else if PosY < 0 then
       begin
       POsY:= 0;
      VelY:= - VelY;
      end;
Image1.Left:= Round(PosX);
Image1.Top:= Round(39);
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[kangreon]

Можно, например, так. Только в моем примере двигается кнопка.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with Button1 do
  begin
    if (Tag <> 1) and (Tag <> 2) then
    begin
      Tag := 1;
      Left := 160;
    end;

    if Tag = 1 then
    begin
      Left := Left + 1;
      if Left >= 200 then
      begin
        Left := 200;
        Tag := 2;
      end;
    end
    else
    begin
      left := Left - 1;
      if Left < 160 then
      begin
        Left := 160;
        Tag := 1;
      end;
    end;
  end;
end;

Все это происходит в событии OnTimer компонента TTimer

[soniag]

kangreon, спасибо!
оказывается всё гораздо проще