[cloayza]

Intentando interpretar tu codigo...Con algunas modificaciones...

Código Delphi [-]
if loFirst then begin
   qryPagos.Filter := Format('Folio = %d AND Cancelado=%s',[qryReporteFolio.Value, QuotedStr('False')]);
   qryPagos.First;
   lo_s := '';
   While not qryPagos.Eof do begin

   {      if lo_s = ' ' then
            lo_s := FloatToStr(qryPagosImporte.Value) <---- Primero


         else
            //Para que concatenar los Importes...?
            lo_s := lo_s+FloatToStr(qryPagosImporte.Value);
   }
         ...
         //qrPro0.memReporte.Insert
         //qrPro0.memReporte.Edit;

         Case (qryPagosIdTipPag2.Value) Of
              1: qrPro0.memReportePagos.Value  := qryPagosImporte.Value
              2: qrPro0.memReportePagos2.Value := qryPagosImporte.Value
              3: qrPro0.memReportePagos3.Value := qryPagosImporte.Value
              4: qrPro0.memReportePagos4.Value := qryPagosImporte.Value
              5  qrPro0.memReporteServFac.Value:= qryPagosImporte.Value
         end;

         qrPro0.memReporte.Post;

         qryPagos.Next;
   end;

Ojala sea la lectura correcta...