Frage zu Rezeptsammlung-> Suchfunktion durch Array funktioniert nicht

[LTE5]

KOPIEREN und unter deinem "ButtonXClick" EINFÜGEN, das ist alles.

Delphi-Quellcode:

var
 Rezept: array [1 .. 25] of string;
 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';

 Label9.Caption := 'Das Rezept ist nicht in der Rezeptsammlung vorhanden!';
 for i := 1 to 25 do
  begin
   if Pos(UpperCase(Gesucht), UpperCase(Rezept[i])) <> 0 then
    begin
     Label9.Caption := 'Das Rezept ist in der Rezeptsammlung vorhanden!';
     Break;
    end;
  end;
end;