Работа со SCrollBar

[LelikAK]

Пытаюсь добиться скролинга активного окна. Пока не получается. Вот код:

var
Wnd : HWND;
si : ScrollInfo;
begin
sleep (1500);
Wnd := GetForeGroundWindow;
GetScrollInfo (Wnd, SB_VERT, si);
si.nPos := si.nPos + 10;
SetScrollInfo(Wnd, SB_VERT, si, TRUE);
SendMessage(Wnd, WM_VSCROLL, MAKEWPARAM(SB_THUMBPOSITION, si.nPos), 0);
end;

[chertovich]

Может лучше так:

  Form1.VertScrollBar.Range := 1000;
  Form1.HorzScrollBar.Range := 1000;