anchor.diff:  
   
   //Returns random number from -Range_Both_Directions to +Range_Both_Directions
  -function KaMRandomS2(Range_Both_Directions: Integer; const aCaller: String): Integer;
  -begin
  -  Result := KaMRandom(Range_Both_Directions*2+1, 'S2I*' + aCaller, False) - Range_Both_Directions;
  +function KaMRandomS2(Range_Both_Directions: Integer; const aCaller: AnsiString): Integer;
  +begin
  +  Result := KaMRandom(Range_Both_Directions*2+1, aCaller, False) - Range_Both_Directions;
   
     LogKamRandom(Result, aCaller, 'S2I*');
   end;
   
   
   //Returns random number from -Range_Both_Directions to +Range_Both_Directions
  -function KaMRandomS2(Range_Both_Directions: Single; const aCaller: String): Single;
  -begin
  -  Result := KaMRandom(Round(Range_Both_Directions*20000)+1, 'S2S*' + aCaller, False)/10000-Range_Both_Directions;
  +function KaMRandomS2(Range_Both_Directions: Single; const aCaller: AnsiString): Single;
  +begin
  +  Result := KaMRandom(Round(Range_Both_Directions*20000)+1, aCaller, False)/10000-Range_Both_Directions;
   
     LogKamRandom(Result, aCaller, 'S2S*');
   end;
   
   
   //Returns random number from 0 to +aMax
  -function KaMRandomS1(aMax: Single; const aCaller: String): Single;
  -begin
  -  Result := KaMRandom(Round(aMax*10000), 'S1S*' + aCaller, False)/10000;
  +function KaMRandomS1(aMax: Single; const aCaller: AnsiString): Single;
  +begin
  +  Result := KaMRandom(Round(aMax*10000), aCaller, False)/10000;
   
     LogKamRandom(Result, aCaller, 'S1S*');
   end;
  
positive.code: end;
  
  
  function StrToHex(S: String): string;
  var I: Integer;
  begin
    Result:= '';
  
negative.code:   function TimeToString(aTime: TDateTime): UnicodeString;
    function TickToTimeStr(aTick: Cardinal): String;
  
    function StrToHex(const S: String): String;
    function HexToStr(const H: String): String;
  
    function WrapColor(const aText: UnicodeString; aColor: Cardinal): UnicodeString;
    function WrapColorA(const aText: AnsiString; aColor: Cardinal): AnsiString;
  