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