// global variables
  sl      : TStringList;
  xmlDoc  : TXMLDocument;

// glavna proc izvjestaja
procedure TForm1.izvjestaj(tip,pocetak,kraj: String); // Ispis izvjstaja
var mainNode : IXMLNode;
begin
    xmlDoc := TXMLDocument.Create(nil) ;
    try
      xmlDoc.Active := true;
      xmlDoc.Version:='1.0';
      xmlDoc.Encoding:='utf-8';
      mainNode := xmlDoc.AddChild('TremolFpServer') ;
      mainNode.Attributes['Command'] := 'Report';
      mainNode.Attributes['Type'] := tip;
      if pocetak<>'' then mainNode.Attributes['Start'] := pocetak;
      if kraj<>'' then mainNode.Attributes['End'] := kraj;
      sl := TStringList.Create;   // String lista
      try
        sl.Assign(xmlDoc.XML) ;
        sl.SaveToFile('c:\Fiscal_comm\Izvjestaj-0000001.xml') ;
      finally
        sl.Free;
      end;
    finally
      xmlDoc := nil;
    end;
end;

// poziv  proc. primjer:
izvjestaj('OperatorZ;0','','');  // Z izvjestaj po operatoru