[Alegun]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 b: real;
begin
 b:= 1;
with Form1 do
 for i:= 0 to ComponentCount-1 do
begin
 if Components[i] is TEdit then b:= b * StrToFloat((Components[i] as TEdit).Text);
end;
 Label1.Caption:= FloatToStr(b);
end;