Fórum Contagem do tempo Restante do processo #340527

var
  HoraAnterior: TTime;
  PorSegundo: Integer;

begin
  HoraAnterior := Now;
  PorSegundo := 0;

  while not Query1.EOF
  do begin
    if (HoraAnterior <> Now)
    then begin
      PorSegundo := 0;
      HoraAnterior := Now;
      Label1.Caption := ´Média de execução: ´+ IntToStr(PorSegundo);
      Label2.Caption := ´Faltando ´+ IntToStr(Query1.RecordCount - Query1.RecNo) +´ registros´;
      Label3.Caption := ´Tempo estimado: ´+ CurrToStr((Query1.RecordCount - Query1.RecNo) / PorSegundo) +´ segundos´;

      Application.ProcessMessages; // pode deixar a execução mais lenta, porém, não trava a aplicação durante o while
    end;

    // tuas funcoes
    Inc(PorSegundo);
    Query1.Next;
  end;
end;