type
  TacFileStorageOverwrite = (owIfSizeDifferent, 
                             owNever,
                             owAlways);

{ owIfSizeDifferent - overwrite only if size different
  owNever - never overwrite
  owAlways - always overwrite }