#pas
function MESSAGE_DllMain(hinstDLL:HINSTANCE; fdwReason:DWORD; lpvReserved:pointer):longbool; stdcall;

#pas
procedure DllMain(fdwReason:DWORD);
begin
   case fdwReason of
     DLL_THREAD_ATTACH: ;
     DLL_THREAD_DETACH: ;
     DLL_PROCESS_ATTACH:
       begin
       end;
     DLL_PROCESS_DETACH:
       begin
       end;
   end;
end;

//exports

begin
  DllProc:=@DllMain;
  DllMain(DLL_PROCESS_ATTACH);
end.