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