[NumLock]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=False;
  Timer1.Interval:=50;
  Gauge1.MinValue:=0;
  Gauge1.MaxValue:=MulDiv(SpinEdit1.Value, 1000, Timer1.Interval);
  Gauge1.Progress:=0;
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Gauge1.AddProgress(1);
  if Gauge1.Progress=Gauge1.MaxValue then Timer1.Enabled:=False;
end;