progress bar (falta pouco)

Pessoal,

Tenho o seguinte problema para minha progress bar funcionar a contento:

Ela está funcionando... Incrementando...
Mas ele completa a barra antes de concluir o relatório...
Eu exibo a porcentagem do relatório no título do form da progress bar, mas a pb conclui e o título continua alterando (o que está correto, o errado é a Pb terminar antes)!!!
Acho que o que está errado é a quantidade de posições que estou mandando acrescentar, mas alterei o valor step e não notei diferenca...
O que poderá ser?


Total := FrmMapa.IBQuery1.RecordCount;
Cont := 0;

FrmBarra := TFrmBarra.Create(Application);
FrmBarra.Caption := ´Concluindo Relatório: 0 ¬´;
FrmBarra.Barra.Max := Total;
FrmBarra.Show;

While Not FrmMapa.IBQuery1.Eof Do
Begin
Cont := Cont +1;
FrmBarra.Barra.Position := FrmBarra.Barra.Position + Cont;
FrmBarra.Barra.Update;

[Código]

Percent := (Cont*100) / Total;
Percent := StrToFloat(FormatFloat(´#0´,Percent));
FrmBarra.Caption := ´Concluindo Relatório: ´ + FloatToStr(Percent) + ´ ¬´;
End;
FrmBarra.Free;