procedure TForm1.Timer2Timer(Sender: TObject);
begin
        
  Gauge1.Progress := Gauge1.Progress + 1;
  end;