fpc/rtl/palmos/api/font.imn

  function FntIsAppDefined(fnt : FontID) : boolean;

    begin
       FntIsAppDefined:=longint(fnt)>=longint(fntAppFontCustomBase);
    end;