Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[Lisaaaa]

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
Var i : Integer;
    Gesucht : String;
    Gefunden : Boolean;
begin
Gesucht:=UpperCase(Edit1.text);
   Rezept[1]:='Apfelrotkohl;
   Rezept[2]:='Apfelkuchen';
   Rezept[3]:='Baerlauchhummus';
   Rezept[4]:='Currywurst';
   Rezept[5]:='Donauwelle';
   Rezept[6]:='Eiersalat';
   Rezept[7]:='Frikadellen';
   Rezept[8]:='Gemuesepfanne';
   Rezept[9]:='Heidelbeermarmelade';
   Rezept[10]:='Italienischer_Nudelsalat';
   Rezept[11]:='Jaegerschnitzel';
   Rezept[12]:='Kuerbiscremesuppe';
   Rezept[13]:='Linsensuppe';
   Rezept[14]:='Mangomarmelade';
   Rezept[15]:='Nudelauflauf';
   Rezept[16]:='Omlette_mit_Tomaten';
   Rezept[17]:='Pfifferlingsuppe';
   Rezept[18]:='Quarkkeulchen';
   Rezept[19]:='Rinderbraten';
   Rezept[20]:='Schmandkuchen';
   Rezept[21]:='Tomatensalat';
   Rezept[22]:='Ungarisches_Gulasch';
   Rezept[23]:='Vanillekipferl';
   Rezept[24]:='Wirsinggemuese';
   Rezept[25]:='Zucchinicremesuppe';
i := Low(Rezept);
     repeat
       Gefunden := Pos(Gesucht,UpperCase(Rezept[i])) <> 0;
       Inc(i);
     until Gefunden or (i >= High(Rezept));
     Label9.Caption:= Format('Das Rezept ist %sin der Rezeptsammlung vorhanden!',[IfThen(Gefunden,'','nicht ')]);

So habe ich es eigegeben, es funktioniert nicht. :/ Bin leider in Info nicht allzu begabt
Hoffe das es bald geht, ihr eine Lösung meines Problems findet