Fehlerhafte Darstellung bei horizontalen Scrollen in ListBox

[Viktorii]

Habe da garnicht mehr dran gedacht. Kann gut sein, dass der Code das verursacht. Habe den auch nicht selber geschrieben, sondern hier per SuFu gefunden:

Delphi-Quellcode:

procedure TMainForm.ListBoxKonsoleDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  Farbe:TColor;
begin
  with Control as TListBox do begin
    Canvas.FillRect(Rect);
    Farbe:=TColor(Items.Objects[Index]);
    if Farbe=clBlack then begin  //um einen Kontrast zu erzeugen
      if Selected[Index] then Farbe:=clWhite;
    end
    else if Farbe=clWhite then begin
      if not Selected[Index] then Farbe:=clBlack;
    end;
    Canvas.Font.Color:=Farbe;
    Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]);
  end;

end;

Liegt der Fehler hier?