new TCarpetImage
Demo of using picture in TDataModule
it is done by introducing in another package, 
to keep non image carpet as not depends to graphics.pas