Enregistrer un OCX

uses
OLECtl;

var
OCXHand: THandle;
RegFunc: TDllRegisterServer;
begin
OCXHand := LoadLibrary ('C:WindowsSystemMyFile.ocx');
RegFunc:= GetProcAddress (OCXHand, 'DllRegisterServer');
if RegFunc <> 0 then
ShowMessage('Error!');
FreeLibrary (OCXHand);
end