anchor.diff:      procedure CheckMimeLoaded;
       property MimeLoaded: boolean read FMimeLoaded;
       function ParseUploadPlugin(const ARequest: TFPHTTPConnectionRequest): boolean;
  +    function FindFileForURI(const URI:string; var FN:String):Boolean;
   
     public
       procedure HandleRequest(var ARequest: TFPHTTPConnectionRequest;
  
positive.code:     begin
        MimeTypes.LoadFromFile(MimeTypesFile);
        FMimeLoaded := True;
      end;
    end;
  
  
negative.code:     FN: string;
  
    begin
      if FindFileForURI(ARequest.Url,FN) then
      begin
        F := TFileStream.Create(FN, fmOpenRead);
        try
  