Hallo,
Du musst in der OnDraw unbedingt als erstes prüfen ob der Item<>nil ist. In Deinem Fall also:
Delphi-Quellcode:
procedure TForm_UserAnlegen.ListView1CustomDrawItem(
Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if (Item=nil) then Exit;
if (Item.SubItems.Count>0) then
begin
if (StrToInt(Item.SubItems[0])>0) then Sender.Canvas.Font.Color:=clGreen
else Sender.Canvas.Font.Color:=clBlack;
end; // if
end;