>>149
やってません。

ともかくイベントハンドラを作ってみました。
procedure TForm1.PictureMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
　PictureDrag := true;
　Origin := Point(X,Y);
　MovePt := Origin;
end;

procedure TForm1.PictureMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
　if PictureDrag then
　　begin
　　　MovePt := Point(X,Y);
　　　PictureImage.Left := PictureImage.Left + (MovePt.X - Origin.X);
　　　PictureImage.Top := PictureImage.Top + (MovePt.Y - Origin.Y);
　　end;
end;

procedure TForm1.PictureMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
　if PictureDrag then PictureDrag := false;
end;

で実行したところ・・・