anchor.diff:      fList[i] := fList[i-1];
     fList[aID].msgType := aMsgTyp;
     fList[aID].msgText := aText;
  -end;
  -
  -//Linux wants this instead of timegettime, it should work on Windows too
  -function TimeGet: DWord;
  -begin
  -    Result := DWord(Trunc(Now * 24 * 60 * 60 * 1000));
   end;
   
   function TKMMessageList.GetMsgPic(aID:cardinal):cardinal;
  
positive.code: uses KM_Utils;
  
  
  {Reset log file}
  constructor TKMLog.Create(aPath:string);
  begin
    Inherited Create;
    fLogPath := aPath;
    fFirstTick := TimeGetTime;
    fPreviousTick := TimeGetTime;
    AssignFile(fl, fLogPath);
    Rewrite(fl);
    CloseFile(fl);
  
negative.code: begin
    AssignFile(fl, fLogPath);
    Append(fl);
    WriteLn(fl,floattostr((TimeGet() - fFirstTick)/1000)+'s'+#9+
               floattostr((TimeGet() - fPreviousTick)/1000)+'s'+#9+aText);
    CloseFile(fl);
    fPreviousTick := TimeGet();
  end;
  
  
  