Code:uses OLECtl; var OCXHandle: THandle; RegFunc: TDllRegisterServer; begin OCXHandle:= LoadLibrary ('C:\Windows\System\FileName.ocx'); RegFunc:= GetProcAddress (OCXHandle, 'DllRegisterServer'); if RegFunc <> 0 then ShowMessage('Failed to register'); FreeLibrary (OCXHandle); end;