anchor.diff:    FExSize         := ASource.FExSize       ;
     Props           := ASource.Props         ;
     Originals       := ASource.Originals     ;
  -  FIArray         := ASource.FIArray       ;
     ID              := ASource.ID            ;
  +  if ASource.FIArray <> nil then
  +  begin
  +    FIArray := TFontInfoArray.Create;
  +    FIArray.Assign(ASource.FIArray);
  +  end;
     if ASource.TheFont <> nil then
     begin
       TheFont := TMyFont.Create;
  
positive.code:       LogProperties(Source,'Source');
  {$endif}
        for Index := Low(Index) to High(PropIndices) do
          if (VarType(Source.Props[Index]) <> varEmpty) and (Vartype(Source.Props[Index]) <> varNull) then
            case Index of
              MarginTop..LeftPos:
  
negative.code:     OldSize: Double;
      NoHoverVisited: Boolean;
  
      procedure Merge(Source: TProperties; Reverse: Boolean = False);
      var
        Index: PropIndices;
        I: FIIndex;
  