{1.} 

type 
 TDllRegisterServer = function: HResult; stdcall; 

function RegisterOCX(FileName: string): Boolean; 
var 
 OCXHand: THandle; 
 RegFunc: TDllRegisterServer; 
begin 
 OCXHand := LoadLibrary(PChar(FileName)); 
 RegFunc := GetProcAddress(OCXHand, 'DllRegisterServer'); 
 if @RegFunc <> nil then 
 Result := RegFunc = S_OK 
 else 
 Result := False; 
 FreeLibrary(OCXHand); 
end; 

function UnRegisterOCX(FileName: string): Boolean; 
var 
 OCXHand: THandle; 
 RegFunc: TDllRegisterServer; 
begin 
 OCXHand := LoadLibrary(PChar(FileName)); 
 RegFunc := GetProcAddress(OCXHand, 'DllUnregisterServer'); 
 if @RegFunc <> nil then 
 Result := RegFunc = S_OK 
 else 
 Result := False; 
 FreeLibrary(OCXHand); 
end; 

{**********} 

{2.} 

function RegisterServer(const aDllFileName: string; aRegister: Boolean): Boolean; 
type 
 TRegProc = function: HResult; 
 stdcall; 
const 
 cRegFuncNameArr: array [Boolean] of PChar = 
 ('DllUnregisterServer', 'DllRegisterServer'); 
var 
 vLibHandle: THandle; 
 vRegProc: TRegProc; 
begin 
 Result := False; 
 vLibHandle := LoadLibrary(PChar(aDllFileName)); 
 if vLibHandle = 0 then Exit; 
 @vRegProc := GetProcAddress(vLibHandle, cRegFuncNameArr[aRegister]); 
 if @vRegProc <> nil then 
 Result := vRegProc = S_OK; 
 FreeLibrary(vLibHandle); 
end;

Получить ссылку на материал