>>801
それを参考に
　private
　　FDownFlg :Boolean;
　　FPosX :Integer;
　　FPosY :Integer;

procedure TForm1.ScrollBox1MouseDown(Sender: TObject; Button: TMouseButton;
　Shift: TShiftState; X, Y: Integer);
begin
　FDownFlg := True;
　FPosX := X;　FPosY := Y;
end;

procedure TForm1.ScrollBox1MouseUp(Sender: TObject; Button: TMouseButton;
　Shift: TShiftState; X, Y: Integer);
begin
　FDownFlg := False;
end;

procedure TForm1.ScrollBox1MouseMove(Sender: TObject; Shift: TShiftState;
　X, Y: Integer);
begin
　if FDownFlg then
　begin
　　ScrollBox1.HorzScrollBar.Position := X-FPosX;
　　ScrollBox1.VertScrollBar.Position := Y-FPosY;
　end;
end;
としましたが、だめでした(;_;)。