ایجاد xml با دلفی

برای ایجاد یک xml  به طور خیلی ساده می توانید از کد زیر استفاده کنید .که به طور دلخواه برای ایجاد هر گره مقادیر خود را بین </>  <> تعریف می کنید .

procedure tform1.createxml();
var
DXML:TXMLDocument;


begin
       DXML:=TXMLDocument.Create(Self);
       DXML.Active:=true;
       DXML.XML.Text:='<?xml version="1.0" encoding="windows-1256" ?> '+
                      '<Ask>'+
                          '<systemname>'+ systemname +'</systemname>'+
                          ' <hostname>'+ hostname+'</hostname>'+
                          ' <Date>'+  datetostr(now)+' </Date>'+
                      '</Ask>';

       FileName_xml:= 'options.xml';
       DXML.XML.SaveToFile(ExtractFilePath(Application.ExeName)+FileName_xml);
end;