User Wise Font Not Working

Dear Sir,

I Want To Create User Wise Font Selection. But Code Not Working

Plz help

My Code is This :

[#Menu:Gateway of Tally]
Add:Item:Before@Locquit:FontTest:Alter:ColorTest

[Report:ColorTest]
Form:ColorTest
Object:Company

[Form:ColorTest]
Part:ColorTest

[Part:ColorTest]
Line:ColorTest

[Line:ColorTest]
Field:ColorTest

[Field:ColorTest]
Width:40
Table:ColorTable
Storage: ColorStorage

[Table:ColorTable]
Title:"Select Your Font"
List:"Cambria (Headings)", "Agency FB", "Aharoni", "Algerian", "Andalus", "Times New Roman", "Arial", "Arial Black"


[System:UDF]
ColorStorage:String:25001

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[#Field: LED Mailing Name] ;;;;;;;;;;;;;;;;; Account Ledger Mail Name
Style:MST Alias Font

[System:Formulas]
ColorTest:$ColorStorage:Company:##SVCurrentCompany

[Style:MST Alias Font]
Font@ColorTest