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

[Victor1963]

Я рисую фигуру мышью и хочу, чтобы фигура перемещалось по программе
Но получаеться, после запуска программы, могу нарисовать фигуру, а пе-
ремищение не происходит.

Код:

type
TForm1=class(TForm)
.......
procedure TForm1.Form1MouseDown(Sender:TObjec t; Button:TMouseButton;
Sfift: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.Form1Paint(Sender:TObject);
var
i:integer;
m:integer;
b:integer;
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;