通过选择集选中的实体来面域代码出错

pengxing10

delphi 代码  运行的时候提示找不到成员，麻烦大家帮我看看那里的问题！！！
procedure TForm1.btn2Click(Sender: TObject);
begin
   dlgOpen1.Execute;
   acadapp.documents.open(dlgOpen1.FileName);
end;
procedure TForm1.btn3Click(Sender: TObject);
var
  selectset ,regions,s: Variant;
  i:Integer;
begin
   selectSet := acadDoc.selectionSets.add('newselect');
   selectset.select(acselectionsetall);
   lbl1.Caption := '共选择了'+inttostr(selectset.count);
   for i:=0 to selectset.count-1 do
   begin
      s:=selectset.item;
   end;
   regions:=acadDoc.ModelSpace.addregion(vararrayref(s));
end;