or default initialization function Application: TApplication; begin if CustomApplication = nil then CustomApplication := TApplication.Create; Result := CustomApplication as TApplication; end; -- Zaher Dirkey