error cuando ingreso cantidad de 1 millon

[champy]

Podrías decirnos en que linea te da el error? así será más facil tratar de discernir el porque
Por otro lado, veo que lo mismo lo haces en más de una linea, si el problema fuese el que te dije antes y lo cambiaste, se repetiria en la liguiente linea.

Código Delphi [-]
  suma := suma + StrToFloat(StringReplace(Memo2.Lines[i],',','',[rfIgnoreCase]));
  n1:=  0.16* StrToFloat(StringReplace(Edit8.Text,',','',[rfIgnoreCase])); // Multiplicar
  n1:= StrToFloat(StringReplace(edit8.Text,',','',[rfIgnoreCase]));
  n2:= StrToFloat(stringReplace(edit9.Text,',','',[rfIgnoreCase]));
  label22.Caption:=CantidadEnLetra(StrtoFloat(stringReplace(edit10.Text,',','',[rfIgnoreCase])),1);