problema con consulta TADOQuery

[spyfenix]

Que tal raza
en la forma principal tengo este codigo para que cargue alguna notas y lo despliegue en un Memmo.
dbm ---> DataModule
qryBuscaNotas ----> my consulta

  While Not dbm.qryBuscaNotas.Eof Do
  begin
    aUsuario := dbm.qryBuscaNotasnombre.Value;
    aNota    := dbm.qryBuscaNotasnota.Value;
    mmoTareas.Lines.Add('Edita por : ' + aUsuario);
    mmoTareas.Lines.Add('Fecha publicado : ' + DateToStr(aFecha));
    mmoTareas.Lines.Add(aNota);
    mmoTareas.Lines.Add(' ');
    dbm.qryBuscaNotas.Next;

cuando pasa la primera linea me avienta el siguiente error :

alquien sabe por que me sale ese erro ???

gracias de antemo

[[poliburro]]

Código Delphi [-]
 
While Not dbm.qryBuscaNotas.Eof Do
  begin
    aUsuario := dbm.qryBuscaNotas.Fields[N].AsString;
    aNota    := dbm.qryBuscaNotas.Fields[N].AsString;
    mmoTareas.Lines.Add('Edita por : ' + aUsuario);
    mmoTareas.Lines.Add('Fecha publicado : ' + DateToStr(aFecha));
    mmoTareas.Lines.Add(aNota);
    mmoTareas.Lines.Add(' ');
    dbm.qryBuscaNotas.Next;

[spyfenix]

mmmm no entiendo ???

[[nightynvid]]

se refiere a que el error aparece por la forma en como obtienes los datos del query
tu codigo

Código Delphi [-]
    aUsuario := dbm.qryBuscaNotasnombre.Value;
    aNota    := dbm.qryBuscaNotasnota.Value;

la correccion a tu codigo

Código Delphi [-]
    aUsuario := dbm.qryBuscaNotas.Fields[N].AsString;
    aNota    := dbm.qryBuscaNotas.Fields[N].AsString;

[keyboy]

No creo que un error de violación de acceso se deba a la forma en que se accede a los campos. Pon un punto de corte (breakpoint) sobre esa primera línea y asegúrate que los objetos involucrados, dbm, qryBuscaNotas, etc. no sean nil; posiblemente aún no estén creados.

Bye

[spyfenix]

que tal raza, gracias a todo los que ayudaron
quedo resuelto de la siguiente forma

Código Delphi [-]
dbm.qryBuscaNotas.Open;
dbm.qryBuscaNotas.First; 
While Not dbm.qryBuscaNotas.Eof Do
begin
    aUsuario := dbm.qryBuscaNotas.Fields[N].AsString;
    aNota    := dbm.qryBuscaNotas.Fields[N].AsString;
    mmoTareas.Lines.Add('Edita por : ' + aUsuario);
    mmoTareas.Lines.Add('Fecha publicado : ' + DateToStr(aFecha));
    mmoTareas.Lines.Add(aNota);
    mmoTareas.Lines.Add(' ');
    dbm.qryBuscaNotas.Next;

Gracias
Saludos