procedure TfrmAT_Messages.spSkinListView1CustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; var DefaultDraw: Boolean);
var
  str: string;
  val1, val2, val3: string;
begin
   //str:= PChar(integer(Item.Data));
   //val1:= ExtractStr(str, ',');
   //val2:= ExtractStr(str, ',');
  // val3:= ExtractStr(str, ',');
  //if val3 = 'REC UNREAD' then Sender.Canvas.Font.Style:= [fsBold]
  //                       else Sender.Canvas.Font.Style:= [];
  str:= Item.SubItems[2];
  if str = SMSState_2 then Sender.Canvas.Font.Style:= [fsBold]
                      else Sender.Canvas.Font.Style:= [];
end;