var
  source : AnsiString;
begin
  source := 'Henry';   // Строка для соответствия

  // Обратите внимание, что AnsiMatchStr чувствительна к регистру
  // Мы используем предустановленный массив строк констант
  if AnsiMatchStr(source, ['BRIAN', 'JIM', 'HENRY'])
  then ShowMessage('Первое соответствие успешно найдено')
  else ShowMessage('Первое соответствие не было успешно найдено');

  // Обратите внимание, что массивы начинаются с 0
  if AnsiMatchStr(source, ['Brian', 'Jim', 'Henry'])
  then ShowMessage('Второе соответствие успешно найдено')
  else ShowMessage('Второе соответствие не было успешно найдено');
end;