Here is Bryce's code with Lonk's suggestions. Also NoVarsInStrings and Explicit friendly...

Code:

$nul = SetOption("NoVarsInStrings","On")
$nul = SetOption("Explicit","On")
 
Const(TopCenter,2)
 
TopCenter ?
 
 
Function Const($Constant,$Value)
   Dim $nul
   $nul = Execute('Function ' + $Constant + ' $' + $Constant + '=' + $Value + ' EndFunction')
EndFunction