Como hacer para totalizar una columna de un stringgrid por valor

[[duilioisola]]

Con este procedimiento he logrado procesar los 177000 registros
Solo he tenido que controlar que el valor de monto se pudiera convertir mediante

Código Delphi [-]
            try
               conv := (StrToFloat(monto)*0.01);
               monto := FloatToStr(conv);
            except
               monto := '0';
            end;

También he hecho la prueba de copiar y pegar dos veces el text con 354000 lineas.
También lo pude tratar en una máquina virtual con 384 MB de RAM.