anchor.diff:        bmp.LoadFromFile(AFilename);
         bmp.Transparent:= true;
   
  -      if AIndex >= 0 then
  -      begin
  -        AImagelist.Replace(AIndex, bmp, nil);
  -        Result:= AIndex;
  -      end
  -      else
  -      begin
  -        AImagelist.Add(bmp, nil);
  -        Result:= AImageList.Count-1;
  -      end;
  +      AImagelist.Add(bmp, nil);
  +      Result:= AImageList.Count-1;
       finally
         FreeAndNil(bmp);
       end;
  
positive.code: function ConvertTwoPointsToDiffPoint(APrevPnt, ANewPnt: TPoint): TPoint;
  function ConvertShiftStateToString(const Shift: TShiftState): string;
  function KeyboardStateToShiftState: TShiftState; //like VCL
  function UpdateImagelistWithIconFromFile(AImagelist: TCustomImagelist;
           const AFilename: string; const AIndex: integer = -1): integer;
  function FormatFileDateAsNiceString(const AFilename: string): string;
  function FormatFilenameForMenu(const fn: string): string;
  
  
negative.code: end;
  
  function UpdateImagelistWithIconFromFile(AImagelist: TCustomImagelist;
    const AFilename: string): integer;
  var
    bmp: TCustomBitmap;
  begin
  