[Mailchik]

neorom,

Код:

procedure PercentsInstall();
 begin
 with WizardForm.ProgressGauge do begin
  PercentsLabel.Caption := 'Установка игры: ' + NumToStr((Position*100)/Max) + '.' + Chr(48 + Position mod 10) + ' %';
 end;
end;