Conversion of ThemeLauncher to Delphi (from Visual Basic)