#7 Проверить AppendRow, Cols, RemoveEmptyRow - не работают

[Leo{BSV}]

Не работает вызов Table.AppendRow('Standard'); - ругань на Integer

procedure TOdtTable.AppendRow(TextStyle: string);
var Root, Node: TDOMNode;
    i:integer;
begin
  Node:=FDocument.CreateElement('table:table-row');
  Root:=RootNode.AppendChild(Node);//Root = table:table-row
  for i:=1 to Cols do begin
     Node:=FDocument.CreateElement('table:table-cell');
     TDOMElement(Node).SetAttribute('table:style-name',DefoultCellStyle);
     TDOMElement(Node).SetAttribute('office:value-type','string');
     Root:=Root.AppendChild(Node);//root = table:table-cell
     Node:=FDocument.CreateElement('text:p');
     if length(TextStyle)>0 then
        TDOMElement(Node).SetAttribute('text:style-name',TextStyle)
     else
        TDOMElement(Node).SetAttribute('text:style-name',DefTextStyle);
     Root.AppendChild(Node);
     Root:=Root.ParentNode;//Root = table:table-row
  end;
end; 

Похоже, Cols не определена. Также не работает Table.AppendColumn('Standard');
Table.RemoveRow; - работает
Table.MultiplyRow(1,1);- работает
Table.Cell[0,2]:='bla-bla';- работает
Чтение Table.Rows;- работает
Чтение Table.Cols;- не работает
Table.RemoveEmptyRow('bla-bla');- не работает (вешает все)