Рисование мышкой

[Victor1963]

Добрый день. Можно сделать так, чтобы нарисовать мышкой, нажать кнопку и фигура перемещалась? На даной прог. можно рисовать мышкой,
но при нажатии кнопки не перемещаеться.
procedure TForm1.Form1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Caption:=Format('Mouse in x=%d, y=%d',[x,y]);
if ssShift in Shift then
Canvas.Pixels[x,y]:=clBlack;
end;

procedure TForm1.Button1Click(Sender: TObject);

var
i,m,b,c:integer;
begin
for b:=0 to 50 do
begin
for m:=0 to 656 do
begin
for i:=1142 downto 0 do
c:=Canvas.Pixels[i,m];
if c=clBlack then
begin
Canvas.Pixels[i+10,m]:=clBlack;
Canvas.Pixels[i,m]:=clWhite;
end;
end;
end;
end;


end.

[dmitriegorovih]

попробуйте порисуйте на image