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