procedure WriteLog(AWriteText : String; const AType: integer = 1);
var
  F: string;
  WriteText: AnsiString;
  FileStream : TFileStream;
begin
  WriteText:= AWriteText+ #13#10;
  try
    if AType = 1  then CSectionWrFile.Enter;
    F:= FileDir + PathDelim + FileName + '_' + inttostr(FileNumber) + '.txt';

    if FileExists(F)  then
    begin
      FileStream := TFileStream.Create(F, fmOpenWrite + fmShareDenyNone);
      try
        if FileStream.Size >= FileSize then
        begin  //создаем новый файл и записываем в него строку
          FileStream.Free;
          inc(FileNumber);
          FileNumber:= FileNumber mod FileCount;
          F:= FileDir + PathDelim+FileName + '_' + inttostr(FileNumber) + '.txt';
          if FileExists(F) then
            FileStream := TFileStream.Create(F, fmOpenWrite+ fmShareDenyNone)
          else
            FileStream := TFileStream.Create(F, fmCreate+ fmShareDenyNone);

          FileStream.Position := FileStream.Size;
          FileStream.WriteBuffer(Pointer(WriteText)^, Length(WriteText));
        end
        else
        begin
          FileStream.Position := FileStream.Size;
          //FileStream.Write(AnsiString(WriteText)[1], Length(WriteText));
          FileStream.WriteBuffer(Pointer(WriteText)^, Length(WriteText));
        end;

      finally
        FileStream.Free;
      end;
    end
    else  //если нужно создать новый файл
    begin
      try
        FileStream := TFileStream.Create(F, fmCreate + fmShareDenyNone);
        try
          FileStream.Position := FileStream.Size;
          //FileStream.Write(AnsiString(WriteText)[1], Length(WriteText));
          FileStream.WriteBuffer(Pointer(WriteText)^, Length(WriteText));
        finally
          FileStream.Free;
        end;
      except
      end;
    end;

  finally
    if AType = 1 then CSectionWrFile.Leave;
  end;
end;