procedure test(i:int); Type T_test=Procedure (i:int) ;cdecl; var hModule1: HMODULE ; _test:T_test; begin hModule1:= GetModuleHandle('test.dll') ; @_test:= GetProcAddress(hModule1,'_test_'); _test(2) ; end;