anchor.diff:      procedure StepCaption(const aCaption: UnicodeString);
   
       function GetOrCreateExportWorker: TKMWorkerThread;
  +    function GetHouses: TKMResHouses;
  +    function GetWares: TKMResWares;
  +    function GetPalettes: TKMResPalettes;
     public
       OnLoadingStep: TEvent;
       OnLoadingText: TUnicodeStringEvent;
  
positive.code: end;
  
  
  procedure TKMResource.LoadMainResources(const aLocale: AnsiString = ''; aLoadFullFonts: Boolean = True);
  begin
    StepCaption('Reading palettes ...');
  
negative.code:     fExportWorker := TKMWorkerThread.Create('ExportWorker');
  
    Result := fExportWorker;
  end;
  
  
  function TKMResource.GetPalettes: TKMResPalettes;
  begin
    Result := gResPalettes;
  end;
  
  
  function TKMResource.GetWares: TKMResWares;
  begin
    Result := gResWares;
  end;
  
  
  