Почему у меня шар двигается так быстро ? - PascalABC.NET

uses
    graphAbc;
 
var
    i: integer;
 
begin
    setwindowsize(900, 700);
    lockdrawing; // здесь это нужно делать
    setbrushcolor(clbrown); // и это тоже достаточно сделать один раз, а не 840
    for i := 30 to 870 do
    begin
        window.Clear;
        // lockdrawing; // а здесь не нужно
        // setbrushcolor(clbrown);
        circle(i, 200, 30);
        redraw;
    end;
end.