Hola.
Sí o sí vas a tener que hacerlos uno por uno.
Podrías hacer un casting como
Código Delphi
[-]
var
I:Integer;
F:Real;
for I:=0 to FormAlgo.ControlCount-1 do begin
if (FormAlgo.Controls[i] is TEdit) then
F:=StrToFloat(TEdit(FormAlgo.Controls[i]).Text);
end;