如何处理开放的TControl数组

我有这个不编译的代码:

function IsControlOneOf(AControl: TControl; AControls: array of TControl): Boolean;
begin
  Result := False;
  // if AControls <> nil then // does not compile!
  if Length(AControls) <> 0 then // this compiles
    Result := AControl in AControls; // does not compile!
end;

我可能错误地用开放数组动态数组.
我怎么测试"AControl in AControls"呢？我应该将低(AControls)迭代到高(AControls)并测试匹配,或者什么？

另外,有没有办法为open数组设置默认值？

AControls: array of TControl = []

也不编译.