[Uniq!]

Может быть кому-то пригодится.
Получение курса валют (в примере EUR) с помощью веб сервиса с сайта ЦБРФ.
++ хотелось бы обсудить код и тот факт, что память улетучивается если эту процедуру вызывать и вызывать... и вызывать.

Где-то в Uses:

Код:

uses ... DailyInfo, XSBuiltIns, Xml.XMLIntf, Xml.XMLDoc, Xml.xmldom,
  Xml.Win.msxmldom;

Код:

var
  XSDate: TXSDateTime;
  I: Integer;
begin
  with TXMLDocument.Create(nil) do
    try
      Active := true;

      XSDate := TXSDateTime.Create;
      with XSDate do
        try
          AsUTCDateTime := Date;
          DocumentElement := GetDailyInfoSoap()
            .GetCursOnDateXML(XSDate).XMLNode;
          for I := 0 to DocumentElement.ChildNodes.Count - 1 do
          begin
            if DocumentElement.ChildNodes[i].ChildNodes.FindNode('VchCode')
              .Text = 'EUR' then
              Memo1.Lines.Add('EUR:' + DocumentElement.ChildNodes[i]
                .ChildNodes.FindNode('Vcurs').Text);
          end;
        finally
          Free;
        end;
    finally
      Free;
    end;