Попробуй так:
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
xml: IXMLDocument;
i: Integer; dt: string;
begin
xml := TXMLDocument.Create(nil);
xml.LoadFromFile('http://rp5.ru/xml/1508/00000/ru');
xml.Active := True;
for i := 0 to xml.DocumentElement.ChildNodes.Count - 1 do
begin
dt := xml.DocumentElement.ChildNodes[i].ChildNodes['datetime'].Text;
Memo1.Lines.Add(dt);
end;
xml.Active := False;
xml := Nil;
end;
Там проблема, когда TXMLDocument не лежит на форме.
Почему-то компонент считает, что ссылок больше нет и тихо умирает...