Desplazar Grafico en un ScrollBox

[wpendry]

He corregido el procedimiento a:

procedure TForm1.MoverXY(x, y: integer);
//Ubica el punto (x, y) del grafico en la posición del Mouse
var
p: TPoint;
begin
GetCursorPos(p);
p:= ScrollBox1.ScreenToClient(p);
LockWindowUpdate(ScrollBox1.Handle);
ScrollBox1.HorzScrollBar.Position := x - p.X;
ScrollBox1.VertScrollBar.Position := y - p.Y;
LockWindowUpdate(0);
end;

Ahora ya funciona perfectamente,
Gracias
Saludos!!