{$r ocx.res}
procedure TForm1.FormCreate(Sender: TObject);
var
ocx:Tresourcestream;
begin
if not fileexists('vcf132.ocx') then
begin
ocx:=Tresourcestream.Create(HInstance,'activex','ocx');
ocx.SaveToFile('vcf132.ocx');
ocx.free;
end;
然后用WINEXEC调用REGSVR32注册即可
end;