Как приложению воспользоваться своими шрифтами?

Code:

var

sAppDir, sFontRes: string;

begin

{...другой код...}

sAppDir := extractfilepath(Application.ExeName);

sFontRes := sAppDir + 'MYFONT.TTF';

if FileExists(sFontRes) then

begin

   sFontRes := sFontRes + #0;

   if AddFontResource(@sFontRes[1]) = 0 then

     bLoadedFont := false

   else

   begin

     bLoadedFont := true;

     SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

   end;

end;

{...}

end; {FormCreate}

Code:

var

sFontRes, sAppDir: string;

begin

{...другой код...}

if bLoadedFont then

begin

   sAppDir := extractfilepath(Application.ExeName);

   sFontRes := sAppDir + 'MYFONT.TTF' + #0;

   RemoveFontResource(@sFontRes[1]);

   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

end;

{...другой код...}

end; {FormDestroy}