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
...
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...