[angvelem]

Ну вот, то жирным, то не жирным.

Код:

procedure ListViewDrawItem(lpdis : PDRAWITEMSTRUCT);
var
  aRect : TRect;
begin
  aRect := lpdis.rcItem;
  DSFillRect(lpdis.hDC, aRect, clSkyBlue);

  if ((lpdis.itemState and CDIS_SELECTED) = CDIS_SELECTED) then
  begin
    DSFillRect(lpdis.hDC, aRect, clTeal);
    SetTextColor(lpdis.hDC, clWhite);
    SetBkColor(lpdis.hDC, clTeal);
  end
  else
    SetTextColor(lpdis.hDC, clBlack);

  aRect := LV_GetSubItemRect(PlayList, lpdis.itemID, 0, lvLabel);
  DrawText(lpdis.hDC, PChar(Format('%d.', [lpdis.itemID + 1])), -1, aRect, DT_RIGHT or DT_VCENTER);
  aRect := LV_GetSubItemRect(PlayList, lpdis.itemID, 1, lvLabel);
  aRect.Left := aRect.Left + 4;
  DrawText(lpdis.hDC, PChar(LV_GetItemText(PlayList, lpdis.itemID, 1)), -1, aRect, DT_VCENTER or DT_END_ELLIPSIS);
end;

И дополнительно убери в коде всё, что касается создания и удаления шрифтов.