var i, i2 : Integer; begin i2 := 0; for i:=1 to 35 do if Components[i] is TEdit then i2:=i2 + StrToInt(TEdit(Components[i]).text); Label1.Caption:=intToStr(i2); end;