[Lotles]

Вспомнил про

Код:

{$R+}

Код:

{$R *.dfm}
{$R+}

procedure TForm1.Button1Click(Sender: TObject);
var
Arr: array[1..7] of integer;
i:integer;
begin
for i:=1 to 11 do
if i>3 then Arr[i]:=0 else Arr[i]:=1;
Label1.Caption:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
end;

Щас все норм