//**********************************************************
//***** буфер в лог ****************************************
//**********************************************************
procedure Logger(ABuff: pointer; ASize: Integer);
var
  f: textfile;
  fHandle: integer;
  zBuf: array [1..50] of char;
  i: integer;
  tmp: string;
  xBuff: pbytearray;
begin
  if EnableDebug = 0 then exit;

  //AssignFile(f, ExtractFilePAth(ParamStr(0)) + 'debug.log');
  //AssignFile(f, ExePAth + 'debug.log');
  try
    xBuff:= AllocMem(ASize);
    move(ABuff^, xBuff[0], ASize);
    //Append(f);
    //WriteLn(f, '-----------------------------------------------------------');
    tmp:= '-----------------------------------------------------------';
    Logger(tmp);
    tmp:= '';
    for i:= 0 to ASize-1 do
      begin
        tmp:= tmp + IntToHex(xBuff[i], 2) + ' ';
      end;
   // WriteLn(f, tmp);
   Logger(tmp);
  finally
    //CloseFile(f);
    FreeMem(xBuff);
  end;
  (*
  fHandle:= FileOpen(ExtractFilePAth(ParamStr(0)) + 'debug.log', fmOpenWrite);
  try
    FillChar(zBuf, 50, '-');
    zBuf[49]:= #13;
    zBuf[50]:= #10;
    FileWrite(fHandle, zBuf, 50);
    FileWrite(fHandle, ABuff^, ASize);
  finally
    //CloseFile(f);
    FileClose(fHandle);
  end;
  *)
end;