anchor.diff:  end;
   
   function TfpgMimeDataBase.GetHTML: TfpgString;
  -begin
  -  { TODO: We should only return data related to MIME type:  text/html }
  -  Result := FHTML;
  +var
  +  i: integer;
  +  s: string;
  +begin
  +  { TODO: if data was HTML, we must strip all tags - regex will make this easy }
  +  for i := 0 to FDataList.Count-1 do
  +  begin
  +    if TfpgMimeDataStruct(FDataList[i]).format = 'text/html' then
  +    begin
  +      s := TfpgMimeDataStruct(FDataList[i]).data;
  +      Result := s;
  +      break;
  +    end;
  +  end;
   end;
   
   procedure TfpgMimeDataBase.SetHTML(const AValue: TfpgString);
  -begin
  -  FHTML := AValue;
  -  FFormats.Clear;
  -  Formats.Add('text/html');
  +var
  +  i: integer;
  +  r: TfpgMimeDataStruct;
  +begin
  +  { remove existing 'text/html' first }
  +  for i := FDataList.Count-1 downto 0 do
  +  begin
  +    r := TfpgMimeDataStruct(FDataList[i]);
  +    if r.format = 'text/html' then
  +    begin
  +      FDataList.Remove(FDataList[i]);
  +      break;
  +    end;
  +  end;
  +  { now add new structure }
  +  r := TfpgMimeDataStruct.Create('text/html', AValue);
  +  FDataList.Add(r);
   end;
   
   function TfpgMimeDataBase.GetFormatCout: integer;
  
positive.code:   i: integer;
    s: string;
  begin
    { TODO: if data was HTML, we must strip all tags - regex will make this easy }
    for i := 0 to FDataList.Count-1 do
    begin
      if TfpgMimeDataStruct(FDataList[i]).format = 'text/plain' then
  
negative.code: begin
    inherited Create;
    FDataList := TObjectList.Create;
  end;
  
  destructor TfpgMimeDataBase.Destroy;
  begin
    FDataList.Free;
    inherited Destroy;
  end;
  
  procedure TfpgMimeDataBase.Clear;
  begin
    FUrlList.Clear;
    FDataList.Clear;
  end;
  
  function TfpgMimeDataBase.HasFormat(const AMimeType: TfpgString): boolean;
  var
    i: integer;
  begin
    Result := False;
    for i := 0 to FDataList.Count-1 do
    begin
      Result := TfpgMimeDataStruct(FDataList[i]).format = AMimeType;
      if Result then
        break;
    end;
  end;
  
  function TfpgMimeDataBase.Formats: TStrings;
  