[Code]
var
Memo: TNewMemo;
ISCustomPage: TWizardPage;

procedure Log;
begin
Memo.Lines.Add('Извлечение: ' + ExtractFileName(CurrentFileName));
end;

procedure CreateLog;
begin
{ создадим Memo куда будем записывать лог... }
Memo := TNewMemo.Create(WizardForm);
with Memo do
begin
Parent := WizardForm.InstallingPage;
SetBounds(WizardForm.InstallingPage.Left, ScaleY(75), WizardForm.InstallingPage.Width, ScaleY(140));
ReadOnly := True;
ScrollBars := ssVertical;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpInstalling then
CreateLog;
if CurPageID = ISCustomPage.ID then
begin
Memo.Parent := ISCustomPage.Surface;
Memo.Lines.Add('Готово');
with WizardForm do
begin
BackButton.Visible := True;
BackButton.Enabled := False;
CancelButton.Visible := True;
CancelButton.Enabled := False;
end;
end;
end;

procedure InitializeWizard();
begin
WizardForm.TasksList.Color := clGreen;
{ создадим копию страницы установки, которую покажем пользователю, чтоб он мог прочитать лог... }
ISCustomPage := CreateCustomPage(wpInstalling,
'Установка завершена', 'Установка успешно завершена');

with TNewProgressBar.Create(WizardForm) do
begin
Parent := ISCustomPage.Surface;
SetBounds(WizardForm.ProgressGauge.Left,
WizardForm.ProgressGauge.Top,
WizardForm.ProgressGauge.Width,
WizardForm.ProgressGauge.Height) ;

Max := 100;
Position := 100;
end;

with TNewStaticText.Create(WizardForm) do
begin
Parent := ISCustomPage.Surface;
AutoSize := False;
Caption := 'Готово';
ShowAccelChar := False;
SetBounds(ScaleX(0), ScaleY(16), ScaleX(417), ScaleY(16));
end;
end;