de str afloat con componentcount

[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

FloatToStr(edit3.Text) := Edit1.Text+Edit2.Text ... ;
Edit3 = 1+3 = 13 en vez de 4

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