[Casimiro Notevi]

Aparentemente es lo dicho antes por los compañeros, un bucle infinito, por ejemplo:

Código Delphi [-]
do while not(eof)
begin
  total := total + q.fieldbyname('suma').asfloat;
  q.next;  //  <- haber olvidado avanzar, por lo que nunca saldrá del bucle
end;