anchor.diff:  var
     s: string;
   begin
  +  ShowMimeList(AMimeList);
     { the mime type we want to accept }
     s := 'text/html';
     { if we wil accept the drop, set Accept to True }
  
positive.code:   begin
      if AMimeChoice <> s then
        AMimeChoice := s;
      ShowMimeList(AMimeList);
    end;
  end;
  
  
negative.code:     if AMimeChoice <> s then
        AMimeChoice := s;
  
      Bevel1.BackgroundColor := clRed;
    end;
  end;
  