Um zu ermitteln, ob ein Wort gesperrt ist, machst du am Besten eine
Unterfunktion (*) :
Delphi-Quellcode:
function TForm1.IsBlockedWord(const s : string):boolean;
begin
Result := (LB2.Items.IndexOf(s) <> -1);
// hier an dieser Stelle könne man z.B. auch noch eine zweite Liste (Schimpfwörter) prüfen
...
end;
*) ja, man kann tatsächlich in Delphi Unterfunktionen verwenden und damit den Code stark vereinfachen