unit main; interface procedure Discard(); implementation procedure Discard();begin//do whateverend;
其他单位只能“看到”接口部分列出的内容.