程序中发布OCX

program XXX;

uses
  Forms,Windows,
  uMainFM in 'uMainFM.pas' {MainFM};

{$R *.RES}
Var
  hLib:THandle;
  PRegOcx: procedure ; stdcall;

begin
  Application.Initialize;
  hLib:=Loadlibrary('C:/TIDESTONE/FORMONE6/ttf16.ocx');
  PRegOcx:=GetProcAddress(hLib,PChar('DllRegisterServer'));
  if Assigned(PRegOcx) then
    PRegOcx;

  Application.CreateForm(TMainFM, MainFM);
  Application.Run;
end.