Парсинг XML в Delphi

[admroot]

Всем доброго дня и хорошего настроения!!! Уважаемые программисты, помогите решить задачу:
Есть xml :

<properties>
<entry key="data">base</entry>
<entry key="file">filename</entry>
<entry key="code">104</entry>
</properties>

Как мне его пропарсить и получить значения base, filename, 104? Заранее спасибо

[MadReason]

http://parsing-and-i.blogspot.com/20...ml-delphi.html

или через pos, copy, del. без лишних модулей

[admroot]

я как раз просматривал этот пример, но у меня атрибуты постоянно key, только меняются их значения.... можно мне небольшой пример накидать, я первый раз столкнулся с xml

[Stilet]

С потолка:

if pos('<entry',s)<>0 then begin
 delete(s,1,pos('>',s));
 Result:=copy(s,1,pos('<',s)-1);
end;

Где Result вберет в себя значение innerText тега.

[admroot]

[Error] Unit2.pas(186): Undeclared identifier: 'Result'
Можно плиз на моем примере разобрать... Благодарю

[MadReason]

function parse(s:string):string;
begin
  result:='';
if pos('<entry',s)<>0 then
begin
 delete(s,1,pos('>',s));
 Result:=copy(s,1,pos('<',s)-1);
end;
end;

procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
begin
Memo2.Clear;
for i:=0 to Memo1.Lines.Count-1 do
Memo2.Lines.Add(parse(Memo1.Lines.Strings[i]));
end;

[admroot]

Огромное спасибо, все тлично работает! А никто не предложить решение этой задачи для стандартного компонента xml из вкладки Internet?