Delphi - pasar edit a Float

Tengo varios edit y quiero pasarlos de sTr a float sin tener que hacerlo de uno en uno.
el numero de edit es superior a 30. Se que se puede hacer, de hecho lo hice, pero ya no me acuerdo.
Me podeis ayudar?.

Se puede recorrer lo compoentes de un form y por cada uno hacer algo, no em aucerdo bien pero creo q es algo asi:

var
I: Integer;
begin
for I:=0 to ComponentCount-1 do
if (Components[I] is TEdit) then
strtofloat(TEdit(Components[I]).Text);

y asi por el estilo.
espero te ayude.

saludos.

Esa es la idea . Pero al compilar me da error diciendo que noes un valor valido flotante.
yo lo que hice fué esto pero tampoco me los pasa a float, pues le hago una suma con dos edit y me los suma como si fueran string :
var
a :Array of Extended;
x :Integer;
begin
SetLength(a, 0);
for x := 0 to ComponentCount - 1 do
if Components[x] is TEdit then
begin
SetLength(a, Length(a)+1);
a[High(a)] := StrToFloatDef(TEdit(Components[x]).Text, -1);
end;
end;