Движение кртинки туда сюда

[Fizerator]

Всем здравствуйте... И так сразу перейду к вопросу...
Имеется image - рисунок и имеется таймер! image расположен на groupbox !!!
Вот что мне нужно, На таймере стоит интервал в 100милисек и чтобы каждые эти 100млск картинка двигалась в начале влево до конца groupbox а после когда доходит до края двигалась в право и так постоянно!...
Все, что у меня получилось это завставить картинку в начале двигаца только вправо, а патом она влево уходит за пределы формы, или только влево, а после картинка уходит за пределы формы в право!! Как заставить ее двигаца туда и обратно?!

[VadikV]

ну так покажи свои наработки - поправим и подскажем

[asmodey1]

Подсказываем :

procedure TForm1.FormCreate(Sender: TObject);
begin
lr:=False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if lr then
Image2.Left:=Image2.Left+1 else
Image2.Left:=Image2.Left-1;
if (Image2.Left<2) then
lr:=True;
if ((Image2.Left+Image2.Width)=GroupBox1.Width-2) then
lr:=False;
end;

[Fizerator]

Хорошо, ночто такое "lr"? Откуда вообще это?!

[asmodey1]

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

1. Хорошо, но что такое "lr"?
2. Откуда вообще это?!

1. Ну, уж такое-то пора бы и понимать...
Это глобальная переменная, описывается там же, где и

...
var
  Form1: TForm1;
  lr: boolean;

implementation
...

2. Из моей головы...

[Fizerator]

Ок спс все работает