procedure TfrmAT_Messages.spSkinListView1CustomDrawItem(
  Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var
  str: string;
begin
  str:= Item.SubItems[2];
  if str = SMSState_2 then Sender.Canvas.Font.Style:= [fsBold]
                                   else Sender.Canvas.Font.Style:= [];
end;