正如你所发现的，你不能使用in检查String数组中的String。
您可以使用此函数代替if语句。

function StrInArray(const Value : String;const ArrayOfString : Array of String) : Boolean;
var
 Loop : String;
begin
  for Loop in ArrayOfString do
  begin
    if Value = Loop then
    begin
       Exit(true);
    end;
  end;
  result := false;
end;

你可以这样称呼它。
if StrInArray(ExtString,Extensions) then
StrUtils.pas已经定义了这个。

function MatchStr(const AText: string; const AValues: array of string): Boolean;

从常量数组初始化TStringList示例并使用IndexOf（）。

您可以使用System.StrUtils中的函数IndexStr（区分大小写）或IndexText（不区分大小写）来查找数组中的字符串并检索索引。

var
  ExtString: string;
const
  Extensions : array[0..4] of string = ('.rar', '.zip', '.doc', '.jpg', '.gif');
begin
  if (IndexStr(ExtString, Extensions) <> -1) then
    ShowMessage('Finded')
  else
    ShowMessage('Not finded');

Link to help in docwiki from embarcadero。