program XMLReadConfigFile;
// Sample script that reads an XML config file

const
  XMLConfigFile = 'c:\temp\XMLConfigFile.xml';
  
var
  sStartup, sWindowStyle, sExecute, sEmailAdrs, sSMTPServer, sSMTPPort : string;
  
procedure ReadXMLConfig;
begin
  if OpenXMLFile(XMLConfigFile) then
    begin
      if (XMLFindNode('Startup')) then                 
        begin
          sStartup := XMLGetNodeText;               
        end;
      if (XMLFindNode('WindowStyle')) then                 
        begin
          sWindowStyle := XMLGetNodeText;               
        end;
      if (XMLFindNode('Execute')) then                 
        begin
          sExecute := XMLGetNodeText;               
        end;
      if (XMLFindNode('Email')) then                 
        begin
          sEmailAdrs  := XMLGetNodeText;
          sSMTPServer := XMLGetNodeAttr('SMTP_Server'); 
          sSMTPPort   := XMLGetNodeAttr('SMTP_Port');                 
        end;
      ShowMessage('Startup Mode: '+ sStartup + #13 +
                  'Window Style: '+ sWindowStyle + #13 + 
                  'Execute Mode: '+ sExecute + #13 + 
                  'Email Server, Port, Address: '+ sSMTPServer + ', ' + sSMTPPort + ', ' + sEmailAdrs);    
    end
  else
    ShowMessage(XMLConfigFile + ' not found.');
end;    

procedure OnDocumentComplete(URL : string);
begin         
end;
                         
begin
  ReadXMLConfig;   
end.