[maxzama]

Gracias por la ayuda Casimiro. Pero pasa lo siguiente:

Ya e colocado o insertado esto Dos código, el cual se acerca a lo que quiero(O eso muestra sus ejemplos).

Código Delphi [-]
ShowMessage('0.#### : '+FormatFloat('0.####', float)); Resultado:  1234.567

ShowMessage('#,##0 : '+FormatFloat('#,##0', float));                  resultado:  1,235

Aun así, no me da el resultado que busco.


Este es mi siguiente código con resultado:

Código Delphi [-]
 Memo2.Lines[0];
                for I := 0 to Memo2.Lines.Count-1 do
                begin
                    Cad:=Memo2.Lines[i];
                    
                    Monto:=copy(Cad,56,15);
                    Monto:=StringReplace(Monto, ',', '',[rfReplaceAll, rfIgnoreCase]);
                    Monto:= IntToStr(StrToInt(Monto));   //código para quitar los ceros a la izquierda
                    Float:=strtoint(Monto);
                    SHOWMESSAGE(FormatFloat('0.####', float)); //para colocar el siguiente caracter (,)   //resultado: 19062
                end;

Código Delphi [-]
Memo2.Lines[0];
                for I := 0 to Memo2.Lines.Count-1 do
                begin
                    Cad:=Memo2.Lines[i];
                    
                    Monto:=copy(Cad,56,15);
                    Monto:=StringReplace(Monto, ',', '',[rfReplaceAll, rfIgnoreCase]);
                    Monto:= IntToStr(StrToInt(Monto));   //código para quitar los ceros a la izquierda
                    Float:=strtoint(Monto);
                    SHOWMESSAGE(FormatFloat('#,#0', float)); //para colocar el siguiente caracter (,)   //resultado: 19,062
                end;

No se que me falta o que e colocado mal?.

Espero sus respuesta por favor y Gracias.