Эмулирует скролл через промежуточные точки.
procedure ScrollByPath(aPath: TCSMovePath);
//В результате выполнения страница будет прокручена на 500 точек вниз, постепенно замедляясь var path:TCSMovePath; var point:TCSMovePoint; var i:integer; for i:=0 to 50 do begin point.X:=0; point.Y:=-10; point.Duration:=i*2; path.add(point); end; ScrollByPath(path);