anchor.diff:    i: integer;
     s: string;
   begin
  -  { TODO: if data was HTML, we must strip all tags - regex will make this easy }
  +  { TODO: if no text/plain, but we have HTML, we must strip all tags and return that }
     for i := 0 to FDataList.Count-1 do
     begin
       if TfpgMimeDataStruct(FDataList[i]).format = 'text/plain' then
  
positive.code: end;
  
  function TfpgMimeDataBase.GetHTML: TfpgString;
  begin
    { TODO: We should only return data related to MIME type:  text/html }
    Result := FHTML;
  end;
  
  procedure TfpgMimeDataBase.SetHTML(const AValue: TfpgString);
  begin
    FHTML := AValue;
    FFormats.Clear;
    Formats.Add('text/html');
  end;
  
  function TfpgMimeDataBase.GetFormatCout: integer;
  
negative.code: 
    { We take ownership of AValue. Can we do this? }
    FUrlList := AValue;
  //  FFormats.Clear;
  //  Formats.Add('text/uri-list');
  end;
  
  function TfpgMimeDataBase.GetText: TfpgString;
  