Как перемещать TShape с помощью мыши?

[SaCREDO]

Всем доброго! Подскажите плиз чайнику - как програмно поместить TShape на форму и перемещать его с помощью мыши?!

[Nemesisking]

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Shape1.Tag:=1;
shiftY:=Y; shiftX:=X;
end;

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Shape1.Tag = 1 then
begin
Shape1.Top:=Shape1.Top+Y-shiftY;
Shape1.Left:=Shape1.Left+X-shiftX;
end;
end;

procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Shape1.Tag:=0
end;

Это стандартная процедура перемещения обьектов, типа Image, Shape и других обьектов!