[Electronic_Arts]

Потому что ты одновременно добавляешь и удаляешь сделай так

Код:

procedure TForm1.FormCreate(Sender: TObject) ;
begin
  AddFontResource('Xenia Condensed Cyrillic.TTF') ;
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;

procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
begin
  RemoveFontResource('Xenia Condensed Cyrillic.TTF') ;
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;