Delphi-Quellcode:
TListbox(Control).Canvas.FillRect(Rect);
if TListbox(Control).Items.Strings[Index] = 'verliehen' then
TListbox(Control).Canvas.Font.Color := clRed
Besteht der Eintrag in der Listbox auch nur aus "verliehen" oder
ist "verliehen" nur eine Bestandteil des Eintrages?
Und nocht etwas "geht nicht" ist eine nicht sehr hilfreiche Fehlerbeschreibung.
Grüße
Klaus