Как считывать из файла xml

[Начинающий програм]

Всем доброго времени суток! Помогите пожалуйста с процедурой для считывания из xml. Как мне считать эту информацию:

//Запись данных
procedure Wr(s2:string);
var
  s:string;
begin
  writeln(ftx2,' <block>');
  writeln(ftx2,'        <string> '+s2+' </string>');  //s2:string;
  writeln(ftx2,'        <type> '+s+' </type>');
  writeln(ftx2,' </block>')
end;