Используется стандартная функция Делфи
Вот я сделал (работает)
procedure ThiXLStrGrid._work_doRowC;
begin
XLStrGrid.RowCount := XLStrGrid.RowCount+1;
end;

procedure ThiXLStrGrid._work_doColC;
begin
XLStrGrid.ColCount := XLStrGrid.ColCount+1;
 end;