Wenn das Wort mit anderen Wörtern in der Zeile steht kannst Du es nicht
so
if TListbox(Control).Items.Strings[Index] = 'verliehen' then
abfragen.
Dann solltest Du mit pos(substring,String) anfangen.
z.B. so:
Delphi-Quellcode:
if pos('verliehen',TListbox(Control).Items.Strings[Index]) > 0 then
// Zeile färben
Grüße
Klaus