2366 end;

  2366 end;

  2367 

  2367 

  2368 procedure initModule;

  2368 procedure initModule;

  2369 begin

  2369 begin

  2370     // TODO: we could just have one cLocale variables and drop strutils

  2370     // TODO: we could just have one cLocale variables and drop strutils

  2372 

  2372 

  2373     cFlattenFlakes      := false;

  2373     cFlattenFlakes      := false;

  2374     cFlattenClouds      := false;

  2374     cFlattenClouds      := false;

  2375     lastVisualGearByUID := nil;

  2375     lastVisualGearByUID := nil;

  2376     lastGearByUID       := nil;

  2376     lastGearByUID       := nil;