Tablice i in_array w Delphi

Czy istnieje jakaś f-cja sprawdzająca czy dany np. String znajduje się w tablicy, tzn:

const
  data: Array[0...4] Of String = ('test1', 'test2', 'test3', 'test4', 'test5');
var
  data2: String;
begin
  data2 := 'test3';
  // i teraz jak to sprawdzić czy data2 znajduje się w tablicy data??
end;

I nie chodzi mi tutaj o pętle:

  For i := Low(data) To High(data) Do
  Begin
    If Names[i] = Data Then
      jakas_procedura
    Else Exit;
  End;

bo to w moim przypadku nie zdaje egzaminu... Najfajniej by było gdyby to było coś w stylu PHP'owe f-cji in_array

afaik nie ma.