TSimpleXmlWriter = class
    Finished : boolean;
    Buff     : string;
    RLock    : boolean;
    WLock    : boolean;
    Writer   : ITask;

    procedure WriteToBuff(const Text: string);

    constructor Create(const AFileName: string);
    destructor Destroy; override;

    procedure OpenElement(const Name: string; const CloseTag: TXmlCloseTag);
    procedure CloseElement(const Name: string);
    procedure WriteAttribute(const Name: string; const Value: Integer; const CloseTag: TXmlCloseTag);
  end;

constructor TSimpleXmlWriter.Create(const AFileName: string);
begin
  Finished:=False;
  Writer:=TTask.Create(procedure ()
  var
    xBuff : TBytes;
    F     : TFileStream;
  begin
    F:=TFileStream.Create(AFileName,fmCreate,fmShareDenyNone);
    try
      while not Finished or (length(Buff)>0) do begin
        try
          if RLock then Continue;
          WLock:=True;
          if RLock then Continue;
          if length(Buff)>0 then begin
            xBuff:=TEncoding.UTF8.GetBytes(Buff);
            Buff:='';
            WLock:=False;
            F.Write(xBuff[0],length(xBuff));
          end;
        finally
          WLock:=False;
        end;
        Sleep(1);
      end;
    finally
      F.Free;
    end;
  end);
  Writer.Start;
  Buff:='<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>';
end;

destructor TSimpleXmlWriter.Destroy;
begin
  Finished:=True;
  TTask.WaitForAll([Writer]);

  inherited;
end;

procedure TSimpleXmlWriter.OpenElement(const Name: string; const CloseTag: TXmlCloseTag);
begin
  if CloseTag=xtClose then begin
    WriteToBuff('<'+Name+'>');
  end else begin
    WriteToBuff('<'+Name);
  end;
end;

procedure TSimpleXmlWriter.CloseElement(const Name: string);
begin
  WriteToBuff('</'+Name+'>');
end;

procedure TSimpleXmlWriter.WriteAttribute(const Name: string; const Value: Integer; const CloseTag: TXmlCloseTag);
begin
  if CloseTag=xtClose then begin
    WriteToBuff(' '+Name+'="'+Value.ToString+'">');
  end else begin
    WriteToBuff(' '+Name+'="'+Value.ToString+'"');
  end;
end;

procedure TSimpleXmlWriter.WriteToBuff(const Text: string);
begin
  RLock:=True;
  while WLock do sleep(0);
  Buff:=Buff+Text;
  RLock:=False;
end;

  TSimpleXmlWriter = class
    procedure WriteToBuff(const Text: string);

    constructor Create(const AFileName: string);
    destructor Destroy; override;

    procedure OpenElement(const Name: string; const CloseTag: TXmlCloseTag);
    procedure CloseElement(const Name: string);
    procedure WriteAttribute(const Name: string; const Value: Integer; const CloseTag: TXmlCloseTag);
  end;

constructor TSimpleXmlWriter.Create(const AFileName: string);
begin
end;

destructor TSimpleXmlWriter.Destroy;
begin
end;

procedure TSimpleXmlWriter.OpenElement(const Name: string; const CloseTag: TXmlCloseTag);
begin
  if CloseTag=xtClose then begin
    WriteToBuff('<'+Name+'>');
  end else begin
    WriteToBuff('<'+Name);
  end;
end;

procedure TSimpleXmlWriter.CloseElement(const Name: string);
begin
  WriteToBuff('</'+Name+'>');
end;

procedure TSimpleXmlWriter.WriteAttribute(const Name: string; const Value: Integer; const CloseTag: TXmlCloseTag);
begin
  if CloseTag=xtClose then begin
    WriteToBuff(' '+Name+'="'+Value.ToString+'">');
  end else begin
    WriteToBuff(' '+Name+'="'+Value.ToString+'"');
  end;
end;

procedure TSimpleXmlWriter.WriteToBuff(const Text: string);
begin
end;