[Rosenkrantz]

Перед использованием фонт нужно установить:

Код:

AddFontResource(PChar('путь_к_файлу_с_фонтом'));

После использования удалить:

Код:

RemoveFontResource(PChar('путь_к_файлу_с_фонтом'));

Примерно вот так:

Код:

procedure ShowFont(FontFileName: String);
var
   F: TDemoFontForm;
begin
  AddFontResource(PChar(FontFileName));
  F := TDemoFontForm.Create(Application);
  try
    F.Label1.Font.Name := 'имя_фонта';
    F.ShowModal;
  finally
    F.Free;
    RemoveFontResource(PChar(FontFileName));
  end;
end;