var
PageNameLabel,.........:TLabel;
procedure Wizard;
begin
PageNameLabel:=TLabel.Create(WizardForm);
with PageNameLabel do begin
AutoSize:= False;
SetBounds(ScaleX(70), ScaleY(185), ScaleX(400), ScaleY(30));
Transparent:=True;
Font.Name:= 'Georgia';
Font.Size:= 13;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold];
Parent:=WizardForm;
end;
procedure InitializeWizard;
begin
Wizard;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
PageNameLabel.Hide; \\не показ текста на форме
case CurPageID of
wpWelcome:
PageNameLabel.Show;\\показ текста на опредленной странице.
end;
end;