Help Inno Setup+ISDone progress bar percentage

[Razor12911]

Ok, I will do it for you, not today though, I got biology exam tomorrow, I gotta stay fresh for it.

[buttignol]

Originally Posted by Razor12911

Ok, I will do it for you, not today though, I got biology exam tomorrow, I gotta stay fresh for it.

Ok waiting

[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%