anchor.diff:  var
     s: string;
   begin
  +  ShowMimeList(AMimeList);
     s := 'text/plain';
     if chkAccept.Checked then
       Accept := False
  
positive.code:     if AMimeChoice <> s then
        AMimeChoice := s;
  
      ShowMimeList(AMimeList);
      Bevel1.BackgroundColor := clRed;
    end;
  end;
  
negative.code: 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 }
  