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
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!