Ayuda en If Then Else

[calogero]

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);<--justo aqui
                  qryPagos.Next;
              end;

donde te indico con texto rojo justo ahi no concatenes mejor almacena los resultados en un stringList que viene siendo como un arreglo dinamico, ejemplo;

Código Delphi [-]
var

  StringList: TStrings;
begin

  StringList := TStringList.Create;
  try
      //todo lo encierras en un ciclo el mismo que usas para leer tu query, 
      //con la propiedad count del stringList puedes saber cuantos items o valores contiene
      //aqui alimenta el string list
      StringList.Add(qryPagosImporte.asString);
      StringList.Add('Otro valor más');

    end;

  finally
    StringList.free;
  end;
end;

te mando este link y aqui viene como usar el string list.
http://delphiallimite.blogspot.com/2...inglist-i.html

no se si me hayas captado la idea pero seria como una pila de datos y asi te evitas concatenar y luego desconcatenar
1 |valor1
2 |valor2
3 |valor3
...
n |valorn

y asi vas recorriendo el stringList y tomando valores
espero que te sirva, saludos.