Fórum Progress Bar com Time #224259

procedure TForm1.Button1Click(Sender: TObject);
var cont, total:integer;
begin
   IBQuery1.Last;
   ProgressBar1.Position:=0;
   ProgressBar1.Max:=IBQuery1.RecordCount;
   total:=ProgressBar1.Max div 15;
   cont:=0;
   IBQuery1.First;
   while not IBQuery1.Eof do
      begin
      Inc(cont);
      if cont = total then
         begin
         cont:=0;
         ProgressBar1.Position:=ProgressBar1.Position+total;
         end;

     ... aqui entra seu código ...

      IBQuery1.Next;
      end;
end;