Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[Lisaaaa]

procedure TForm1.Button6Click(Sender: TObject);
Var Rezept:array[1..25] of string;
s:Integer;
Gesucht:String;
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;
For s:=1 to 25 Do
If Pos (Uppercase(Gesucht),UpperCase(Rezept[s]))<> 0 Then
begin
Label9.Caption:='Das Rezept ist in der Rezeptsammlung vorhanden!';
Break;
end
Else
begin
Label9.Caption:='Das Rezept ist nicht in der Rezeptsammlung vorhanden!';
end;
end;

So sieht es jetzt aus. Wenn ich zuerst was eingebe, was nicht vorhanden ist zeigt es dann an '...nicht vorh.'. Aber wenn ich dann etwas eingebe was vorhanden ist, auf den button klicke, passiert nichts und das '...nicht vorh.' bleibt stehen !:O