Programm hängt bei AddFontResource

[Schubi]

Hallo zusammen!
hab jetzt vermehr Probleme mit einem Programm was schon ewig im Einsatz ist.
Und zwar installiere ich beim starten des Programms temporär ein paar Schriftarten.
Folgender Code:

Delphi-Quellcode:

Try
  AddFontResource(PChar(EXEPath+'Dateien\Verdana.TTF'));
  AddFontResource(PChar(EXEPath+'Dateien\Webdings.TTF'));
  AddFontResource(PChar(EXEPath+'Dateien\Wingding.TTF'));
  AddFontResource(PChar(EXEPath+'Dateien\WINGDNG2.TTF'));
  AddFontResource(PChar(EXEPath+'Dateien\WINGDNG3.TTF'));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
except
end;

Das Problem: Auf manchen Rechnern (3 an der Zahl) dauern diese 6 Zeilen 2 Minuten, auf einem anderen Rechner hängt sich mein Programm auf ewig auf! Auf anderen Rechnern funktioniert der Code problemlos!

Woran kann das liegen?
Das Programm bleibt einfach stehen...

Hat irgendjemand ne Idee?

Gruß,

Schubi