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])); n1:= StrToFloat(StringReplace(edit8.Text,',','',[rfIgnoreCase]));
n2:= StrToFloat(stringReplace(edit9.Text,',','',[rfIgnoreCase]));
label22.Caption:=CantidadEnLetra(StrtoFloat(stringReplace(edit10.Text,',','',[rfIgnoreCase])),1);