//globalne var.
  sl      : TStringList;
  xmlDoc  : TXMLDocument;
 
 
procedure TForm1.pracuni_print;  // Ispis p_racun stavki na FP
 var
    mainNode, itemNode, paymentNode, adNode  : IXMLNode;
begin
    xmlDoc := TXMLDocument.Create(nil) ;
    try
      xmlDoc.Active := true;
      xmlDoc.Version:='1.0';
      xmlDoc.Encoding:='ibm852';
 
      mainNode :=xmlDoc.AddChild('TremolFpServer') ;
      mainNode.Attributes['Command'] := 'Receipt';
 
      // Ovdje idu artikli povuceni iz db while --> not eof
      itemNode := mainNode.AddChild('Item') ;
      itemNode.Attributes['Description'] := 'Artikal_1';
      itemNode.Attributes['Quantity'] := '1.00';
      itemNode.Attributes['Price'] := '1.20';
      itemNode.Attributes['VatInfo'] := '2';
      itemNode.Attributes['Department'] := '1';
      itemNode.Attributes['Discount'] := '0.00%';
 
      // Nacin placanja
      paymentNode:= mainNode.AddChild('Payment');
      paymentNode.Attributes['Type'] := 'Kartica';
      paymentNode.Attributes['Amount'] := '0.00';
 
      // Pozdravna poruka iz db
      adNode := mainNode.AddChild('AdditionalLine');
      adNode.Attributes['Message'] := 'Hvala, posjetite nas ponovo !74';
 
      sl := TStringList.Create;
      try
        sl.Assign(xmlDoc.XML) ;
        sl.SaveToFile('c:\Fiscal_comm\Racun-0000001.xml') ;
      finally
        sl.Free;
      end;
    finally
      xmlDoc := nil;
    end;
end;
 
// pozivanje procedure:
 pracuni_print;