[fpc-pascal] any free pascal standard function to compare a string against an array of string?

[Dennis]

is there a function like
   if    IsOneOf('subtext', ['abc','cde','fecg','hig'])   then begin
...
end;

is there such a function IsOneOf(TheSubString : String; const TheStrings 
: array of String) : Boolean
?
if yes, what is its name and unit?

Dennis