AddIns для добавления надстройки

procedure RegisterAddIns;
var
   AddIns, fExcelApplication: OleVariant;
begin
   fExcelApplication := CreateOleObject('Excel.Application');
   
   fExcelApplication.Workbooks.Add;
   AddIns := fExcelApplication.AddIns.Add(sCurrentFullName, false);
   AddIns.Installed := true;
   fExcelApplication.Quit;
end;