Экспрот данный в ворд отобразить в ProgressBar

[Polotenchik]

По нажатию на кнопку происходит экспорт данных в ворд. Экспортируется и из стрингрид и много чего другого. Т.е код обширный.

procedure TForm1.Button1Click(Sender: TObject);
var
  W: Variant;
begin
  W := CreateOleObject('Word.Application');
  W.Documents.Add;
  ....
  //Тут много кода по экспорту 
  ....
  W.Visible := True;
end;

Вопрос наверное детский, но я ни разу не использовал ProgressBar. Надо что бы прежде чем откроется документ

W.Visible := True;

ход создания этого документа отобразился в ProgressBar.

Как это сделать?

[pesi]

procedure TForm1.Button1Click(Sender: TObject);
var
  W: Variant;
begin
  W := CreateOleObject('Word.Application');
  W.Documents.Add;
PRogressbar1.position:=0;
Progressbar1.min:=0;
Progressbar1.max:=StringGrid1.RowCount;
Progressbar1.step:=1;
....
 //и в цикл вставляешь увеличение PRogressbar1
...
ProgressBar1.StepIt;
Application.ProcessMessages;

[Polotenchik]

А если у меня там много разных циклов? Т.е создается несколько таблиц, добавляется всякий текст и т.д? И из стринггрида несколько раз экспортируется из разных диапазонов. Как быть тогда?

[mutabor]

Разбей на этапы и в каждом из них двигай прогресс на соответсвующую этапу часть, или же предварительно высчитай общее кол-во строк в таблицах или что ты там добавляешь, тогда точнее прогресс будет.