var
 Res: TResourceStream;}
begin
{  Res:=TResourceStream.Create(hInstance, 'MYFONT', Pchar('FONT1'));
 Res.SavetoFile(cFontName);
 Res.Free;
 AddFontResource(PChar(cFontName));
 SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);