Back
Using TGauge to show a progress indicator.

procedure TForm1.Button1Click(Sender: TObject);
var Count : Integer;
begin
    for Count := 1 to 1000 do
   begin
     Gauge1.Progress := Count;
   end;
end;

Back