edit Str a float

[BrunoBsso]

Bueno, acá te dejo una solución así lo aprendés y podés implementarlo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
  F:Real;
begin
  //Tomar en cuenta que el separador decimal (DecimalSeparator) puede ser . o ,
  F:=0;
  for I := 0 to ControlCount-1 do begin
    if (Controls[i] is TEdit) then begin
      if TEdit(Controls[i]).Tag<>1 then
        F:=F+StrToFloat(TEdit(Controls[i]).Text);
    end;
  end;
  EdResultado.Text:=FloatToStr(F);
end;

Para ese código usé 4 TEdits llamados EdSuma1, EdSuma2, EdSuma3 y EdSuma4, un botón Button1 y un TEdit EdResultado.
La propiedad Tag de los TEdits de sumas la dejé en 0 y la de EdResultado la dejé en 1 para encontrarlo fácil.
Tenés que tener en cuenta que el DecimalSeparator depende del lenguaje del SO.
Podés detectar cuando se escribe una coma o un punto y decidir vos qué caracter tiene que ser, pero eso ya es aparte de lo que necesitás.
Saludos!