problemas de eliminacion

[alfil123]

hola amigos, ayer me sujirieron insertar esta linea en el codigo


procedure TForm1.Button1Click(Sender: TObject); begin If Adoquery1.Fields[0].AsInteger > 0 then ShowMessage('Hay registros en el detalle') else ShowMessage('NO Hay registros en el detalle'); end;

pero me bota un error en tiempo de ejecucion en la linea

"If Adoquery1.Fields[0].AsInteger > 0 then"

se suponia que la esta linea contaba los registro que devuelve una consutabueno amigos les pido que me den una mano