Was mache ich hier falsch? Objektabfrage in ListBoxDrawItem

[Renate Schaaf]

Zitat von Alallart:

Delphi-Quellcode:

procedure ListBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState; ImageList: TImageList);
var
  Info: TInfo;
  LB: TListBox;
begin
  LB := Control as TListbox;

  //Code...

  Info := TInfo(LB.Items[Index]);

  if Info.ErrInfo > 0 then
      Canvas.Brush.Color := clRed;

  //Code...

end;

Sollte das nicht sein

Info := TInfo(LB.Items.Objects[Index]) ?