Появление и исчезновение фигур на форме в Лазарусе

[Mihail90]

Здравствуйте программисты, помогите пожалуйста. Нужна программа, в которой должен к примеру появляться на форме прямоугольник, который выдвигается из правого края формы, двигаться до левого края и заходить за него, далее появляется новый и также движется, интервал появления между прямоугольниками должен быть разный. Вот такая задача, помогите пожалуйста с ней.

[evg_m]

должен к примеру появляться на форме прямоугольник

r:=TShare.Create;
r.Parent:=self;

который выдвигается из правого края формы

r.Left:=self.Width;

двигаться до левого края

if r.Left>0 then r.Left:=r.Left-...

и заходить за него

else if r.Left+r.Width>0 then r.Left:=r.Left-....

else r.Free;//больше он нам не нужен

интервал появления между прямоугольниками должен быть разный

TTimer

Timer.Interval:=minInterval + Rundom(maxinterval-mininterval);