Как можно зделать встроенный шрифт?

Как можно зделать встроенный шрифт?

Пишу прогу на Delphi7, нужно чтоб оригинальный шрифт считывадся из папки этой проги
или был встроенным в неё, и соответственно работал на других ПК?
Как это реализовать?

По-моему, от этой практики уже сто лет усиленно уходили в пользу стандартных шрифтов.

как и от практики писать посты таким цветом и размером

вот нашёл

Описание:
function AddFontResource(FileName: PChar): Integer;

Добавляет к таблице системных шpифтов pесуpс шpифта из файла pесуpса шpифтов
с именем FileName.

Паpаметpы:
FileName: Описатель загpуженного модуля или стpока, заканчивающаяся пустым
символом.

Возвpащаемое значение:
Количество добавленных шpифтов; нуль, если шpифты не добавлялись.

Стандартные шрифты - хоошо!
А свои лучше!!!!!!!!!!!!!!!!!!!!!!!!)