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

Code:

{Функция загрузки и выгрузки шрифта.}

function LoadFont(sFontFileName: string; bLoadIt: boolean): boolean;

var

sFont, sAppDir, sFontRes: string;

begin

result := TRUE;

if bLoadIt then

begin

   {Загрузка шрифта.}

   if FileExists(sFontFileName) then

   begin

     sFontRes := sFontFileName + #0;

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

       result := FALSE

     else

       SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

   end;

end

else

begin

   {Выгрузка шрифта.}

   sFontRes := sFontFileName + #0;

   result := RemoveFontResource(@sFontRes[1]);

   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

end;

end; {LoadFont}