var
kompas:KompasObject;
spcdoc:ksspcdocument;
spc:ksspecification;
spcDescr:ksSpcDescrParam;
state:wordbool;
begin
//подключаемся к компас
try
kompas:=KompasObject(GetActiveOleObject('Kompas.Application.5'));
except
try
kompas:=KompasObject(createOleObject('Kompas.Application.5'));
kompas.Visible:=false;
except
exit;
end;
end;
spcdoc:=ksspcdocument(kompas.SpcActiveDocument);
spc:=ksspecification(spcdoc.GetSpecification);
spcDescr:=ksSpcDescrParam(Kompas.GetParamStruct( ko_SpcDescrParam ));
spcDescr.Init;
state:=true;
Spc.ksGetSpcDescription(-1,spcDescr,state);
label1.Caption:=vartostr(spcDescr.styleId);
label2.Caption:=(spcDescr.layoutName);
label3.Caption:=(spcDescr.spcName); Здесь особенность функции ksGetSpcDescription
параметр state обязательно должен быть wordbool 
