I don't know how to do this from Delphi, but If what you want to do is make sure that a font used by your program is avalible when the programm is run, Use an installer program such as Innosetup.
Innosetup will handle the installation/registration of fonts for you. You will need the extended version. Innosetup 2.
Steve