TProgress コンポーネントは、プログレスバーを簡単に表示するための 非ビジュアルコンポーネントです。

使い方

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
  I, J: Integer;
  List: TStringList;
begin
  S := '処理中';
  Progress1.BeginProgress(S);           // 表示
  try
    List := TStringList.Create;
    try
      for I := 0 to 100 do
      begin
        Progress1.Progress(S, 100, I);  // 更新
        for J := 1 to 10 do
          List.Add(Format('%.2d', [I]) + Format('%.2d', [J]));
      end;
    finally
      List.Free;
    end;
  finally
    Progress1.EndProgress;              // 終了
  end;
end;

動作確認は、Delphi 2.0J でしか行っていませんが、2.0J 以降のすべての バージョンで動くと思います。（たぶん^^;）