[Razor12911]

@Darkangel5

Fix the lines where there are errors, using phone in bed, not even using a computer.
first create a timer like this:
var
FontTimer: TTimer;
InstallMouseMove: Boolean;

second create the Timer's procedure

procedure FontOnTimer(Sender: TObject);
begin
if InstallMouseMove and (installlabel.font.size < 18) then
installlabel.font.size:=installlabel.font.size:= + 1;
if not InstallMouseMove and (installlabel.font.size > 12) then
installlabel.font.size:=installlabel.font.size:= - 1;
end;

the label's mouse enter and leave

procedure InstallLabelOnEnter(Sender: TObject);
begin
InstallMouseMove:=True;
end;

procedure InstallLabelOnLeave(Sender: TObject);
begin
InstallMouseMove:=False;
end;

now at initializewizard do this

InstallLabel.OnMouseLeave:=@InstallLabelOnLeave;
InstallLabel.OnMouseEnter:=@InstallLabelOnEnter;
FontTimer:=TTimer.Create(WizardForm)
with FontTimer do
begin
OnTimer:=@FontOnTimer;
Interval:=10;
Enabled:=True;
end;

installlabel is the existing label.