TProject Style .Current Method
Returns the global TProjectStyle singleton class.
class function Current: TProjectStyle
Never try to "Free()" the instance given by the "Current()" method. You will have access violations in your program and memory leaks !