[Serega]

можно ли этот код записать как-то иначе через InitializeWizard??? »

Процедура InitializeWizard, задаёт всё глобально, т.е. применимо ко всему инсталлятору. Попробуйте менять шрифт таким образом:

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Code]
var
  NewFont, OldFont: string;
  
procedure InitializeWizard();
begin
  NewFont:= 'Tahoma';
  OldFont:= WizardForm.Font.Name;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if (CurPageID = wpWelcome) or (CurPageID = wpInfoBefore) or (CurPageID = wpInfoAfter) then
    WizardForm.Font.Name:= OldFont
  else WizardForm.Font.Name:= NewFont;
end;