unit interface_parameter; interface procedure p1({@}a: byte); implementation procedure p1({!}a: byte); begin end; end.