Uses Windows;

Var Dll1,Dll2:HANDLE;

Begin
   Dll1:=LoadLibrary('dll1.dll');
   If Dll1=0 Then WriteLn('DLL1 not loaded, Error: ',GetLastError)
     else WriteLn('DLL1 is loaded');


   Dll2:=LoadLibrary('dll2.dll');
   If Dll2=0 Then WriteLn('DLL2 not loaded Error: ',GetLastError)
     else WriteLn('DLL2 is loaded');
End.