Usar fuentes no instaladas en Lazarus

[rrf]

Hola.

¿Es posible en Lazarus usar fuentes que no se han instalado?, ¿alguien sabe cómo hacerlo o donde hay algún enlace que explique cómo hacerlo?.

He buscado y he encontrado este código (para Delphi), pero no funciona en Lazarus (uso la versión 1.6).

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject) ;
 begin
 
   AddFontResource('c:\FONTS\MyFont.TTF') ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
 end;
 
{Before application terminates we must remove our font:}
 procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
 begin
   RemoveFontResource('C:\FONTS\MyFont.TTF') ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
 end;

Saludos.