[[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;