var
PClientRect: PRect;
begin
GetMem(PClientRect, SizeOf(TRect));
PClientRect^ := PaintBox1.BoundsRect;

ScrollWindow(Handle, 値, 値, PClientRect, PClientRect);

これでもいいですよね。

どうもうまく動かないなあ。なにか他に原因があるのかな。