TCreateType = (
  ctNewObject,
  ctFromFile,
  ctLinkToFile,
  ctFromData,
  ctLinkFromData
);

enum TCreateType {
  ctNewObject,
  ctFromFile,
  ctLinkToFile,
  ctFromData,
  ctLinkFromData
};