FMimeTable := TDBISAMTable.Create(nil);
    FMimeTable.SessionName := FDBSession.SessionName;
    FMimeTable.InMemory := True;
    FMimeTable.TableName := 'Memory_Mime';
    TableBuild_Mime(FMimeTable);

{SECTION1}
    bErr := False;
    try
      MimeStream := TFileStream.Create(FThreadVar.FConfigDirectory   
'MIME.DAT', fmOpenRead or fmShareDenyNone);
      try
        try
          FMimeTable.Open;
          FMimeTable.LoadFromStream(MimeStream);  //no errors
        except
          bErr := True;
        end;
      finally
        MimeStream.Free;
      end;
    except
      bErr := True;
    end;

{SECTION2}
    if bErr then
    begin
      PostWarning('Cannot load mime table...creating one with default values.');

      TableFill_Mime(FMimeTable);

      try
        bErr := False;
        try
          MimeStream := TFileStream.Create(FWebThreadVar.FConfigDirectory   
'MIME.DAT', fmCreate or fmShareDenyWrite);
        except
          bErr := True;
        end;

        if not bErr then
        begin
          try
            try
              FMimeTable.SaveToStream(MimeStream);
            except
            end;
          finally
            MimeStream.Free;
          end;
        end;
      except
      end;
    end;
    FMimeTable.Open;

{SUPPORT FUNCTIONS CALLED}
procedure TableBuild_Mime(Table:TDBISAMTable);
begin

  with Table do
  begin
    Close;
    FieldDefs.Clear;
    IndexDefs.Clear;
    FieldDefs.Add('Extension', ftString, 10, False);   
    FieldDefs.Add('Content', ftString, 100, False);    
    IndexDefs.Add('ByExtension','Extension',[]);
    CreateTable;
    IndexName := 'ByExtension';
  end;
end;


procedure TableFill_Mime(Table:TDBISAMTable);
  type TMimeTable = Array[0..10, 0..1] of string;
  const aDefault:TMimeTable = (
                               ('',     'application/octet-stream'),
                               ('.BMP',  'image/bmp'),
                               ('.GIF',  'image/gif'),
                               ('.HTM',  'text/html'),
                               ('.HTML', 'text/html'),
                               ('.JPEG', 'image/jpeg'),
                               ('.JPG',  'image/jpeg'),
                               ('.TXT',  'text/plain'),
                               ('.XML',  'text/xml'),
                               ('.XSL',  'text/xml'),
                               ('.ZIP',  'application/x-zip-compressed')
                              );
  var
    i:Integer;
begin

  with Table do
  begin
    Open;
    for i := Low(aDefault) to High(aDefault) do
    begin
      Append;
      Fields[0].AsString := aDefault[i][0];
      Fields[1].AsString := aDefault[i][1];
      Post;
    end;

  end;
end;

{CHILD THREAD}
    LocalDatabase := TDBISAMTable.Create(nil);
    try
      LocalDatabase.SessionName := Session.SessionName;  //unique w/thread 
ID
      LocalDatabase.InMemory := True;
      LocalDatabase.Exclusive := False;
      LocalDatabase.TableName := 'Memory_Mime';
      LocalDatabase.IndexName := 'ByExtension';
      LocalDatabase.Open;  //locks-up
     ....