Usuwanie czcionki z Windows

Jak usunąć czcionkę z Windows, wcześniej dodaną poleceniem:

AddFontResource? W helpie jest: DeleteFontResource, ale moje

Delphi7 nie rozpoznaje tego polecenia (jak dodam ShellApi to

też nic nie daje). Dodanej czcionki nie ma ponadto w katalogu

C:\windows\fonts, ale jest widoczna w Microsoft Wordzie i w

innych programach.

Mam także drugie pytanie. Zamiast dodawać czcionkę poleceniem

AddFontResource, mogę przkopiować ją do c:\windows\fonts. Ale

jak ją potem usunąć? DeleteFile nie działa ani z właściwą

nazwą pliku, ani z nazwą czcionki. Czy jest jakieś polecenie

kasujące czcionkę z systemu?

uses Registry; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
reg: TRegistry; 
b : bool; 
begin 
CopyFile('Nazwa.TTF', 
'C:\\WINDOWS\\FONTS\\Nazwa.TTF', b); 
reg := TRegistry.Create; 
reg.RootKey := HKEY_LOCAL_MACHINE; 
reg.LazyWrite := false; 
reg.OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\Fonts', 
false); 
reg.WriteString('TESTMICR (TrueType)','Nazwa.TTF'); 
reg.CloseKey; 
reg.free; 
{Dodawanie czcionki } 
AddFontResource('c:\\windows\\fonts\\Nazwa.TTF'); 
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); 
{Usuwanie} 
RemoveFontResource('c:\\windows\\fonts\\Nazwa.TTF'); 
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); 
end; 

Kod pochodzie ze strony: http://www.noribo.prv.pl/faq/faq.html

Dzieki Pijotr, zaraz sprawdzę czy działa.