Agregar Lineas a un campo memo...

[[BlueSteel]]

Hola...

quisiera agregar unas lineas a un campo Tmemo... hasta el momento estoy haciendo el siguiente proceso.... pero no me funciona. Se supone que en la consulta existe al menos 10 registros, pero solo me agrega el primer registro

IBQ_Cargos.First;
While IBQ_Cargos.Eof=False Do
Begin
      sCargos.Lines.Append(Concat(IBQ_Cargos['Are_Codigo'],'   ',IBQ_Cargos['Are_Detalle'],'  $',FormatFloat('#,',IBQ_Cargos['Cos_Monto'])));
      IBQ_Cargos.Next;
End;