[onCreate]

Здравствуйте товарищи. Слёзно прошу вас помочь мне написать компонент, наследник TStringGrid. Этот компонент должен уметь читать RSS ленту новостей, используя парсер от Microsoft. Когда мы ставим компонент на форму, мы указываем в свойстве адрес ленты и при активации свойства Active например, он нам читает нововсти и заполняет их в свои ячейки. У меня получилось сделать обыкновенное приложение, не компонент, в этом приложении все делается с TMemo. А вот как это всё реализовать в компоненте, да тем более наследнике TStringGrid не представляю.
Вот код моего приложения:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var rss_doc: IXMLDOMDocument;
    node1: IXMLDOMNode;
    i:Integer;
begin
  If not (OpenDialog1.Execute) then Exit;
  rss_doc:=CoDOMDocument.Create;
  rss_doc.async:=False;
  rss_doc.load(OpenDialog1.FileName);

  if rss_doc.parseError.errorCode<>0 then
     begin
  ShowMessage('При загрузке файл произошла ошибка!'+#13#10+
              'Код ошибки: '+IntToStr(rss_doc.parseError.errorCode)+#13#10+
              'Текст ошибки: '+rss_doc.parseError.reason+#13#10+
              'Строка с ошибкой: '+IntToStr(rss_doc.parseError.line)+#13#10+
              'Символ в строке с ошибкой: '+IntToStr(rss_doc.parseError.linepos));
  CoUnInitialize;
  Exit;
end;
  node1:= rss_doc.selectSingleNode('//rss');
  For i:=0 to node1.selectNodes('//item').length-1 do
    begin
      Memo1.Lines.Add('Заголовок');
      Memo1.Lines.Add(node1.selectnodes('//item').item[i].selectSingleNode('title').Text);
      Memo1.Lines.Add('Ссылка');
      Memo1.Lines.Add(node1.selectnodes('//item').item[i].selectSingleNode('link').Text);
      Memo1.Lines.Add('Описание');
      Memo1.Lines.Add(node1.selectnodes('//item').item[i].selectSingleNode('description').Text);
      If not (node1.selectnodes('//item').item[i].selectSingleNode('PubDate') = nil) then
      begin
      Memo1.Lines.Add('Дата публикации');
      Memo1.Lines.Add(node1.selectnodes('//item').item[i].selectSingleNode('PubDate').Text)
      end;
      If not (node1.selectnodes('//item').item[i].selectSingleNode('Author') = nil) then
      begin
      Memo1.Lines.Add('Автор');
      Memo1.Lines.Add(node1.selectnodes('//item').item[i].selectSingleNode('Author').Text);
      end;
      If not (node1.selectnodes('//item').item[i].selectSingleNode('lastBuildDate') = nil) then
      begin
      Memo1.Lines.Add('lastBuildDate');
      Memo1.Lines.Add(node1.selectnodes('//item').item[i].selectSingleNode('lastBuildDate').Text);
      end;
    end;
end;

end.