CtrlSetFont is not working, need help

[FlexeraFan]

I have a dilaog box with a text control on it (text area). I am trying to change the font for the text control but it is not working. The code compiles fine but the text does not change when the dialog box displays. Need help please?

#define DialogBoxId 222
#define TXT_CLIENT_NAME

begin
hFont1 = GetFont("Arial",18,STYLE_BOLD);
if(hFont1 = 0) then
MessageBox("Unabke to get Font",SEVERE);
endif;

CtrlSetFont("dlgDisplayInfo",hFont1,TXT_CLIENT_NAME);