anchor.diff:    FTagPointer   := nil;
   end;
   
  -{ TfpgMimeDataStruct }
  -
  -constructor TfpgMimeDataStruct.Create(const AFormat: TfpgString; const AData: variant);
  +{ TfpgMimeDataItem }
  +
  +constructor TfpgMimeDataItem.Create(const AFormat: TfpgString; const AData: variant);
   begin
     inherited Create;
     format := AFormat;
  
positive.code:     function    Formats: TStrings;
      function    GetData(const AMimeType: TfpgString): Variant;
      procedure   SetData(const AMimeType: TfpgString; const AData: Variant);
      property    urls: TList read Geturls write Seturls;
      property    Text: TfpgString read GetText write SetText;
      property    HTML: TfpgString read GetHTML write SetHTML;
      property    FormatCount: integer read GetFormatCout;
    end;
  
    TfpgDragBase = class(TObject)
  
negative.code: var
    i: integer;
  begin
    for i := 0 to Count-1 do
    begin
      if Items[i].format = AMimeType then
      begin
        Result := Items[i].data;
        break;
      end;
    end;
  