FileListBox bestimmte Zeilen einfärben

[SaFu]

Hi

Wie kann ich eine Bestimmte zeile in einer FileListBox einfären immoment mache ich die Anzeige über ein Panel was aber doof aussieht.

Hier wird geprüft ob die datei in dem Ordner vorhanden ist oder nicht je nach dem soll die Zeile in der jeweiligen Farbe in der FileListBox angezeigt werden

Delphi-Quellcode:

sPfadOrdnerOeffentlichLabel:= (Form1.Serverpfad  + 'Datei_Öffentlich\'+ ExtractFileName(ShellTreeView1.Path)+'\' +ExtractFileName(FileListBox1.FileName));
   if FileListBox1.FileName = '' then
     begin
       Panel6.Caption:= '';
       Panel6.Color:= ClBtnShadow;
     end
    else
     if FileExists(sPfadOrdnerOeffentlichLabel) then
     begin
      Panel6.Caption:= 'Veröffentlicht';
      Panel6.Color:= ClLime;
     end
    else
    begin
     Panel6.Caption:= 'Nicht veröffentlicht';
     Panel6.Color:= ClRed;
    end;

Gruß Sascha