Ayuda en If Then Else

[ekbadel]

Hola Primero que nada Agradezco de antemano las respuestas de todos y espero haber comprendido correctamente cada una de sus respuestas bn aqui voy a explicarme un poco mas tellado:

Codigo

Código Delphi [-]
 
   if loFirst then begin
               qryPagos.Filter := 'Folio = '+IntToStr(qryReporteFolio.Value)+' AND Cancelado = '+chr(39)+'False'+chr(39);
               qryPagos.First;
               lo_s := '';
               While not qryPagos.Eof do begin
                  if lo_s = '  ' then
                     lo_s := FloatToStr(qryPagosImporte.Value) <---- Primero
                  
 
             else
                     lo_s := lo_s+FloatToStr(qryPagosImporte.Value);
                  qryPagos.Next;
              end;

Bien de este codigo apartir de una sentencia Sql parto en Busqueda de un resultado en el reglon donde apunto <-------Primero verifico que la caden obtenida de mi query sea un solo resultado y en la segunda verifico si lo_s tiene mas de un resultado me lo envie, bn comprendido como Mencionan antes he sacado por medio de resultados Todos correctos siempre y cuando el resultado arroje que siempre tien 1 solo tipo de pago

cliente 80
importe paga 200
forma pago 1

cliente 90
importe paga 80
forma pago 3
.
.
.Cosecutivamente habiendo 1 sola exibicion genial !!


Bien el problema persiste cuando el cliente tiene mas de dos pagos es decir

lo_s := lo_s+FloatToStr(qryPagosImporte.Value);

En esta parte digamos que el Cliente

120
Importe 100 y 200
tipopago 1 y 3

En esta parte al hacer las validaciones de la forma de pago me tira el resultado en el Ultimo.

qryTipoPago.Value = 3 Then
resutaldo = lo_s;

a lo que lo_s. arroja 100200, cuando deberian ir separados
He ahi mi gran Problema..

Espero haberme dado a entender al 100%