[buttignol]

Using "FilesMemo"
It would be possible to exchange "FilesMemo"
By progress bar
Can this work?
I tried but I could not

procedure AddToMemo(File: String);
begin
if ExtractFileExt(File) = '' then
FilesMemo.Lines.Add(RemoveBackslash(File)) else
FilesMemo.Lines.Add('Extraindo: ' + File);
end;

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
begin
if OveralPct<=1000 then PBar.Position := OveralPct;
LabelCurrFileName.Caption := ExpandConstant('{app}\...');
LabelPct.Caption := IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
LabelTime1.Caption := ExpandConstant('{cm:ElapsedTime} ')+TimeStr2;
LabelTime2.Caption := ExpandConstant('{cm:RemainingTime} ')+TimeStr1;
LabelTime3.Caption := ExpandConstant('{cm:AllElapsedTime}')+TimeStr3;

if (PrevFile <> String(CurrentFile)) and (String(CurrentFile) <> '') then begin
AddToMemo(CurrentFile);
PrevFile:= CurrentFile;
end;
Result := ISDoneCancel;
end;

procedure InitializeWizard();
begin

PrevFile:= '';
PBar2 := TNewProgressBar.Create(WizardForm);
with PBar2 do begin
Parent := WizardForm.InstallingPage;
SetBounds(0,60,417,20);
end;