delphi - StringGrid の保存中のプログレス バーの進行

Question

私はプログラムを開発しており、その上に StringGrid があります。特定のボタンが押されると、私のプログラムは stringgtid を c:\myfolder\tab9.txt に保存します。グリッドに多くの行があり、時間がかかる場合があるため、保存プロセスの最後に残っている時間を示す進行状況バーを配置したいと思います。私はこのコードを使用しています：

procedure SaveSG(StringGrid:TStringGrid; const FileName:TFileName);
var
  f:    TextFile;
  i,k: Integer;
begin
  AssignFile(f, FileName);
  Rewrite(f);
  with StringGrid do
  begin
    Writeln(f, ColCount); // Write number of Columns
    Writeln(f, RowCount); // Write number of Rows
    for i := 0 to ColCount - 1 do  // loop through cells of the StringGrid
      for k := 0 to RowCount - 1 do
         Writeln(F, Cells[i, k]);
        end;
  CloseFile(F);
end; 

この手順を次のように呼び出しますSaveSG(StringGrid1,'c:\myfolder\myfile.txt');。私の問題は、保存の進行状況を示す進行状況バーの表示方法がわからないことです。現時点では、 and のみを宣言ProgressBar1.Position:=0してProgressBar1.Max:=FileSizeいます。何か提案はありますか？