//**********************************************************
//***** строку в лог ***************************************
//**********************************************************
procedure Logger(AStr:string);
var
  f: textfile;
  //xLoggerHandle:= FileCreate(ExePath + 'debug.log');
  xstr: array [1..3000] of Char;
  xlen: integer;
  i, j: integer;
  str: string;

begin
  if EnableDebug = 0 then exit;
  //AssignFile(f, ExtractFilePAth(ParamStr(0)) + 'debug.log');
  //AssignFile(f, ExePath + 'debug.log');
  try
    //Append(f);
    //str:= #13#10 + AStr + #13#10;
    str:= #13#10 + AStr;
    xLen:= length(Str);
    FillChar(xstr, 3000, #0);
    if xLen <=3000 then j:= xLen else j:= 3000;
    for i:=1 to j do
      xstr[i]:= Str[i];
    //WriteLn(f,  DateTimeToStr(Now) + ': ' + AStr);// + #13#10);
    FileWrite(xLoggerHandle, xstr, j);
  finally
    //CloseFile(f);
  end;
end;