[buttignol]

I have this

function ProgressPercent:Integer;
var
pr,i1,i2: Extended;
begin
if (ISDoneProgressBar1.Position>ISDoneProgressBar1.Mi n) then begin
i1:=ISDoneProgressBar1.Position-ISDoneProgressBar1.Min;
i2:=ISDoneProgressBar1.Max-ISDoneProgressBar1.Min;
pr:=i1*100/i2;
Result:=Round(100*pr/100);;
end;
end;

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAn siChar): longword;
begin
ISDoneProgressBar1.Position := OveralPct;
LabelPct1.Caption := IntToStr(ProgressPercent)+'.'+IntToStr(OveralPct mod 10)+'%';

But there's an error in the "IntToStr (OveralPct mod 10) + '%';" it does not end with "IntToStr (ProgressPercent)"
was thus 100.8%