Emulates scroll through the intermediate points.
procedure ScrollByPath(aPath: TCSMovePath);
//As a result of execution the page is scrolled down 500 points down at a slower pace 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);