Insertar renglones en campo Memo

[river_1]

Hola Gracias por contestar mira deja te pongo el codigo de lo que estoy haciendo:

Código Delphi [-]
      Consulta:='Select * from TMPIMEI';
      qryInsIMEI.SQL.Clear;
      qryInsIMEI.SQL.ADD(consulta);
      qryInsIMEI.Active := TRUE;
      qryInsIMEI.Open;
      qryInsIMEI.First;
      WHILE NOT qryInsIMEI.EOF DO
      BEGIN
        IF TBLIMEI.Locate('IMEI',qryInsIMEIIMEI.Value,[])THEN
        BEGIN
          TBLIMEI.Edit;
          TblIMEIDISP.Value:='N';
          TblIMEIRECIBO.Value:=qryInsIMEICOMPRA.Value;
          TblIMEIFECHARECIBO.Value:=qryInsIMEIFECHACOMPRA.Value;
          TBLIMEI.Post;
          TBLFACTURAS.Edit;
          TblfacturasCOMENTARIOS2.Value:=INTTOSTR(qryInsIMEIIMEI.AsInteger)+#13+#10;
          //TblfacturasCOMENTARIOS2.Value:=#13;
          TBLFACTURAS.Post;
          qryInsIMEI.Next
        END;
      END;
      FRMPRINCIPAL.ADOControlTaller.Execute('DELETE FROM TMPIMEI');

Si te das cuenta lo estoy haciendo de 2 maneras diferentes pero solo me esta insertando el ultimo registro seleccionado...
Como aclaracion mi BD es SQL y no existe el campo memo , el campo es Text.
Gracias y se aceptan sugerencias....