[BetaCoder]

Хорошо =)
код:

Код:

   adotable1.Insert;
   title.value:=_node.selectnodes('//item').item[i].selectSingleNode('title').Text;
   link.value:=_node.selectnodes('//item').item[i].selectSingleNode('link').Text;
   description.Value:=_node.selectnodes('//item').item[i].selectSingleNode('description').Text;
   pubDate.Value:=_node.selectnodes('//item').item[i].selectSingleNode('pubDate').Text;
   adotable1.Post;
    countF :=  ADOTable1.RecordCount;   //  подсчет
    label1.caption := IntToStr(countF)    //   сообщений

dfm

Код:

  object DBMemo1: TDBMemo
    Left = 0
    Top = 360
    Width = 640
    Height = 97
    Align = alBottom
    DataField = 'description'
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 2
  end

  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 480
    Top = 56
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rssbase.mdb;Persist' +
      ' Security Info=False'
    CursorType = ctStatic
    TableName = 'rss'
    Left = 512
    Top = 56
    object title: TWideStringField
      DisplayLabel = #1058#1077#1084#1072
      DisplayWidth = 48
      FieldName = 'title'
      Size = 100
    end
    object link: TWideStringField
      DisplayLabel = #1057#1089#1099#1083#1082#1072
      DisplayWidth = 48
      FieldName = 'link'
      Size = 50
    end
    object description: TMemoField
      DisplayLabel = #1054#1087#1080#1089#1072#1085#1080#1077
      FieldName = 'description'
      Visible = False
      BlobType = ftMemo
    end
    object author: TWideStringField
      DisplayLabel = '/'
      FieldName = 'author'
      Size = 15
    end
    object pubDate: TWideStringField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'pubDate'
      Size = 50
    end
    object ADOTable1id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
      Visible = False
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rssbase.mdb;Persist' +
      ' Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 552
    Top = 56
  end
 
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 584
    Top = 56
  end
end