[ecfisa]

Hola Jose.

A ver, proba de este modo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   AddFontResource('c:\pruebas\CourierStd-Oblique.otf') ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
   Label1.Font.Name:= 'CourierStd-Oblique';
   Label1.Font.Size:= 13;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  RemoveFontResource('C:\pruebas\CourierStd-Oblique.otf') ;
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;

En la prueba que realicé funcionó correcto, por lo que tendría que ser igual desde recurso.

Saludos