GetObject() する前に

Font.Name := '@'+Font.Name;

の方が簡単では？