procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
DefaultDraw:=false;
listview1.Canvas.Draw(item.Left,item.Top,Image1.Picture.Graphic);
listview1.Canvas.TextOut(item.Left+Image1.Width+2,item.Top,Item.Caption);
//listview1.Canvas.TextOut(item.+Image1.Width+2,item.Top,Item.Caption);
//listview1.Canvas.TextOut(item.Left+Image1.Width+2,item.Top,Item.Caption);
//DefaultDraw:=true;
end;