de str afloat con componentcount

[marcoszorrilla]

Empezado por Kamael

Quiero pasar 10 edit de strtofloat con este codigo :

var
i : integer ;

begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
begin
StrtoFloatDef(TEdit(Components[i]).Text,0);
end ;

hasta ahí todo bien(eso creo), pero cuando le introduzco a los edit los numeros a sumar me los suma como edits string.Por ejemplo

edit3.Text :=FloatToStr( StrToFloat(Edit1.Text)+StrToFloaat(Edit2.Text) )... ;

Edit3 = 1+3 = 13 en vez de 4

A que es debido esto si los edits los tengo convertidos a float?

Un Saludo.