Schriftart mit gleichem Namen benutzen?

[Z4ppy]

Ich habe hier eine Schriftart, die ich für mein Programm benutzen will. Blöderweise heisst die (intern) Terminal, obwohl es eine andere Schriftart ist, als die "Terminal" des Systems.
Wie kann ich nun meine Schriftart benutzen? Wenn ich sie mit dem folgenden Code lade, wird leider trotzdem die System-Terminal verwendet

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  AddFontResource(PChar('schriftart.fon'));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
  Memo1.Font.Name:='Terminal';
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  RemoveFontResource(PChar('schriftart.fon'));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

MfG Z4ppy

PS.: Oder weiss jemand eine Möglichkeit, den Fontnamen zu ändern? Alle meine bisherigen Versuche sind leider gescheitert