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