If-Abfrage überspringt Code

[Snyderburn]

Hallo,

ich habe eine einfach IF-Abfrage erstellt aber es wird ein Teil des Codes übersprungen.

Delphi-Quellcode:

      for i := 0 to Listbox19.Items.Count-1 do
        begin
          If inhalt = listbox19.Items.Strings[i] then
            begin
              showmessage('juhu');
              found_inhalt := true;
            end
            else
            begin
              showmessage('nö');
              found_inhalt := false;
            end;
        end;

Im Inhalt steht ein String-Wert drin, den er mit der Listbox vergleicht. Die Showmessages in der abfrage funktioniert ohne Probleme, aber die Zeilen mit "found_inhalt" werden immer übersprungen. Weis jemand einen Rat, warum diese zeilen übersprungen wird?

Gruß
Snyderburn