AddFontResource('SomeFont.ttf'); Memo1.Font.Name:= 'SomeFont';
RemoveFontResource('SomeFont.ttf');
Я не понял Вашего вопроса, но всё же Вам на него отвечу!