Unit SampleUnit; //单元名称
Interface //单元属性及单元方法的声明，在此处声明的属性与方法可被外部访问
Uses Unit1,Unit2;//Uses statement 引用其它单元
Function InterfaceFunction(); //place publish function header here

Implementation //可定义私有属性及单元方法的实现，在此处新增的属性及方法仅能当前单元内部引用
Uses Unit3,Unit4.;//Uses statement
Function InterfaceFunction(); // place function body here
Begin
 PrivateFunction();
End;

Function PrivateFunction(); // this is a private function can be called inside only
Begin
End;

Procedure InitCode();
begin
 Echo "Initialization\r\n";
end;
Procedure FinalCode();
begin
 Echo "Finalization\r\n";
end;

Initialization//单元初始化
//Unit Initial statement here
 InitCode();
Finalization //单元释放前执行的过程
//Unit Final statement here
 FinalCode();
End.