Создание сборки

[seregaa]

Уважаемые учассники форума.... !!!!!!
Есть такая проблема, нужно код по созданию сборки (желательно под Delphi 7)!Если у кого -то есть исходники , залейте сюда!
Заранее благодарен!

[yarikv]

library Sborka;

uses SysUtils, Windows, Classes, LDefin2D, LDefin3D, ksAuto, ksTLB, ksConstTLB;

{$E rtw}

{$R *.res}

function LibraryName: PChar; pascal;
begin
Result:='Создать сборку';
end;

procedure LibraryEntry(command: WORD); pascal;
var
iKompas: KompasObject;
iDoc3D: ksDocument3D;

begin
iKompas:=KompasObject(CreateKompasObject);
if iKompas = nil then Exit;

iDoc3D:=ksDocument3D(iKompas.Document3D);
iDoc3D.Create(False, False);

iKompas:=nil;
end;

Exports
LibraryName name 'LIBRARYNAME',
LibraryEntry name 'LIBRARYENTRY';

begin
end.

[seregaa]

Очень благодарен!

[Sheiker]

а как создать подсборку?