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.