TAdvCircularProgress not progressing regularly

I have tested this here with the latest version of the component but can't see any issue.
Test code for a default TAdvCircularProgress:


var
    tot,perc:integer;
    i:integer;
begin
    tot:=100;
    for i := 1 to 100 do
    begin
        perc:=i*100 div tot;
        advcircularProgress1.Position:=perc;
        advcircularprogress1.Refresh;
        listbox1.Items.Add(inttostr(perc)+':'+inttostr(AdvCircularProgress1.Position));
    end;

  caption := inttostr(advcircularProgress1.Position);
end;

output in the listbox is always an identical value for Perc & Position and it always ends at 100