unit pho_u2; INTERFACE procedure phofnt; IMPLEMENTATION procedure phofnt;external {$L phofnt.obj}; begin end.