LV.canvas.font.style:=[];//放在这儿试试
  if Item.SubItems[3]<>'' then    
    begin
      g := TBitmap.Create;
      //g.LoadFromFile('e:\pics\tick.bmp');
      ImageList1.GetBitmap(0,g);
      LV.Canvas.Brush.Color :=clWhite;
      LV.Canvas.Font.Name   :='MS Sans Serif';
      LV.Canvas.TextOut(item.Left,item.Top,item.Caption);
      LV.Canvas.Draw(333,item.Top,g);
    end;给你作参考