Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[LTE5]

Hier wurde schon einer geschrieben

Zitat von 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;