Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[Delphi.Narium]

Delphi-Quellcode:

Label9.Caption:='Das Rezept ist nicht in der Rezeptsammlung vorhanden!';
For s:=1 to 25 Do 
begin
  If Pos (Uppercase(Gesucht),UpperCase(Rezept[s]))<> 0 Then
  begin
    Label9.Caption:='Das Rezept ist in der Rezeptsammlung vorhanden!';
    Break;
  end;
end;