Hallo,
bei 10 Vergleichswerten ist folgende Lösung wahrscheinlich übersichtlicher und flexibler:
Delphi-Quellcode:
Procedure Gegenstand(Bezeichnung:String);
var
sl : TStringList;
begin
sl := TStringList.Create;
sl.CaseSensitive := true;
sl.DelimitedText := 'rohr, schraube, schraubendreher';
IF sl.IndexOf(Bezeichnung) > -1 then
ShowMessage(Bezeichnung + ' ist enthalten.');
sl.Free;
end;
Gruß, Volker