Вертикальный текст в таблице

[NEO]

Доброго времени суток!
Не получается вставить вертикальный текст в таблицу, просмотрел похожие темы попробывал предложенные решения, не помогло. Код на Delphi приведен ниже. Что делаю не так?

                           doc.ksOpenTable( TablePointer);
                            ParagraphPar := ksParagraphParam(iKompasObject.GetParamStruct(ko_ParagraphParam));
                             itemParam := ksTextItemParam(iKompasObject.GetParamStruct(ko_TextItemParam));
                             itemFont := KSTextItemFont(itemParam.Getitemfont);

                            paragraphPar.Init;
                                                               paragraphPar.ang := 90;
                                                      doc.ksColumnNumber( 1 );                                                       
                                                      doc.ksParagraph(ParagraphPar);

                                                          itemParam.Init;
                                                          itemparam.s:='Y' ;
                                                          itemfont.Init;
                                                          itemfont.height :=12;
                                                          itemfont.SetBitVectorValue( ITALIC_ON,true);
                                                         doc.ksTextLine(itemparam);
                                                         doc.ksEndObj;

[555]

такой возможности на текущий момент в API нет.