[Alegun]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i, b: integer;
begin
b:= 0;
with Form1 do
for i:= 0 to ComponentCount-1 do
if Components[i] is TEdit then Inc(b, StrToInt((Components[i] as TEdit).Text));

Label1.Caption:= IntToStr(b);
end;