[ecfisa]

Hola.

Verifica si la condición,

Código Delphi [-]
   if BD.QG1.Eof then
   ...

se cumple alguna vez.

Por ejemplo al inicio de tu función:

Código Delphi [-]
...
var 
  Error: Integer;
begin
  if BD.QG1.Eof then
    ShowMessage('Fin de archivo')
  else
    ShowMessage('No es fin de archivo');
  ...

Saludos