procedure LogWrite(cmd:integer; s:string);
var
  f:Text;
begin
  AssignFile(f, ExpandEnvi('%TEMP%\kh.log'));
  try
    try
      Append(f);
    except
      Rewrite(f);
    end;
    Writeln(f, Format('[%s] [cmd=%d] %s', [DateTimeToStr(Now), cmd, s]));
    CloseFile(f);
  except
  end;
end;