Fortschrittanzeige bei Index

[Fritz01]

Hallo,
möchte erreichen, dass während der Indexerstellung der Fortschritt mittels Progressbar angezeigt wird. Habe das mal so gemacht. Die Procedure wird mit frmUpdate.Show; aufgerufen.

Delphi-Quellcode:

procedure TfrmUpdate.FormPaint(Sender: TObject);
var i,s,t : integer;
begin
  t := frmMain.tTable.RecordCount; 
  s := t div ProgressBar.max;
  for i := 0 to ProgressBar.max do
  begin
    ProgressBar.Position := i;
    sleep(s);
  end;
  close;
end;

1) Es erscheint mir zu langsam, d. h. ich würde gerne einen direkten Bezug zur Indexerstellung erreichen. Hier habe ich die Anzahl der Datensätze zur Steuerung der Progressbar gewählt.
2) Ist das in FormPaint richtig untergebracht?
Wer hat dazu entsprechende Tipps? Danke
Fritz