【列表3.2】  一個簡單的測試 libhello.so的程序。
{HelloTest.dpr - Libraries example test program }
program HelloTest;
{$APPTYPE CONSOLE}
uses
   SysUtils, HelloIntf;
begin
   WriteLn ('Start library test');
   WriteLn ('Press Enter to call the SayHello function'):
   ReadLn;
   try
      SayHello;
   except
      on E:Exception do
         WriteLn ('Error: '+E.Message);
   end;
   WriteLn ('Press Enter to exit the program');
   ReadLn;
end.