Сдвинуть прямоугольник по нажатию на кнопку

[artemavd]

Сабж. Хотел сделать так:

//рисование прямоугольника
procedure TForm1.Button2Click(Sender: TObject);
begin
 Form1.Image2.Canvas.Font.Color:=clWhite;
 Form1.Image2.Canvas.Brush.Color:=clWhite;
 Form1.Image2.Canvas.Rectangle(90,200,600,90);
end;

//движение прямоугольника
procedure TForm1.BtnRightClick(Sender: TObject);
const
 step = 10;
begin
 Form1.Image2.Canvas.Rectangle(90 + step,200,600,90);
end;

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

[Sparkman]

Form1.Image2.Canvas.Rectangle(90 + step,200,600 + step,90);

о_О
Если вам нужно, чтобы прямоугольник двигался по Image, то нужно очищать Image и перерисовывать прямоугольник в другом месте.
А чтобы прямоугольник двигался нужно увеличивать координаты:

X1:=X1+step;
X2:=X2+step;
Form1.Image2.Canvas.Rectangle(X1,200,X2,90);

PS: X1 и X2 - глобальные переменные.

[artemavd]

А в Х1 и Х2 какие значения передавать?

[Sparkman]

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

А в Х1 и Х2 какие значения передавать?

procedure TForm1.FormCreate(Sender: TObject);
begin
 X1:=90;
 X2:=600;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Form1.Image2.Canvas.Font.Color:=clWhite;
 Form1.Image2.Canvas.Brush.Color:=clWhite;
 X1:=X1+step;
 X2:=X2+step;
 Form1.Image2.Canvas.Rectangle(X1,200,X2,90);
end;