Abfrage in Listview laden dauert lange

[schuetze09]

das einzige was ich noch mit dem Listview mache ist das:

Delphi-Quellcode:

procedure TForm_Main.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 if (Item=nil) then Exit;
  if (Item.SubItems.Count>0) then
  begin
    if (Item.SubItems[1] = UserName) then Sender.Canvas.Brush.Color := clGray;
  end;
end;

könnte es daran liegen?