Library testdll;

uses
  Windows,   // DLL_PROCESS_nnn defined in here
  SysUtils, Classes;

procedure MyDLLProc(Reason: Integer);
begin
 case Reason of
   DLL_PROCESS_ATTACH:   // called when the DLL is loaded
   begin
   end;

   DLL_PROCESS_DETACH:   // called when the DLL is freed, if you want
                         // multithreaded, look at DLL_THREAD_DETACH
   begin
   end;
 end;
end;

begin
  DLLProc := @MyDLLProc;  // this sets the DLL entry point to the MyDLLProc.
                          // when ever the DLL is loaded or unloaded,
                          // this proc is called with:
                          //     DLL_PROCESS_ATTACH
                          //     DLL_PROCESS_DETACH
                          //     DLL_THREAD_ATTACH
                          //     DLL_THREAD_DETACH

  MyDLLProc(DLL_PROCESS_ATTACH); // because we interupted the default
                          // dllproc, we must recall our proc
                          // with the DLL_PROCESS_ATTACH reason.
end.