const
xml =
'<?xml version="1.0" encoding="utf-8"?>' +
'<CONFIG>'+
'<Confirmations ExitProgram="12"/>'+
'<Database StandardDirectory="Test"/>'+
'</CONFIG>';
procedure TForm1.Button1Click(Sender: TObject);
var
stream: TStringStream;
begin
stream := TStringStream.Create(xml);
try
XMLConfig1.LoadFromStream(stream);
Label1.Caption := XMLConfig1.GetValue('Confirmations/ExitProgram', 0).ToString;
Label2.Caption := XMLConfig1.GetValue('Database/StandardDirectory', '');
finally
stream.Free;
end;
end;