Du deklarierst ein Array Of String als Konstante
Delphi-Quellcode:
Const
cStrings : Array [0..4] of String = ('Zero','Eins','Dwa','Thrie','Vor');
und suchst dann per For-Schleife:
Delphi-Quellcode:
Function StringIn (Const aPattern : String; aStringArray : TStringArray) : Boolean;
Begin
For i:=....
End;
Oder du packst die Strings in einen String, mit delimiter und suchst mit Pos:
Delphi-Quellcode:
Const
ccStrings = '#Zero#Eins#Dwa#Thrie#Vor';
Begin
If Pos ('#'+aPattern, ccStrings)<>0 Then ....
Beides kurz und knapp und ausreichend schnell (wenn man es nicht gerade 100000000 aufruft).