Помогите в работе с таблицами Word

unit uMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs
 
  ,ComObj, StdCtrls;
 
type
  TfrmMain = class(TForm)
    btnWordConnect: TButton;
    btnDocCreate: TButton;
    btnTableCreate: TButton;
    btnRowAdd: TButton;
    btnRowDel: TButton;
    btnTableDel: TButton;
    btnWordDisconnect: TButton;
    edCell1: TEdit;
    edCell2: TEdit;
    edCell3: TEdit;
    edCell4: TEdit;
    edCell5: TEdit;
    edIndexRowDel: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    edIndexRowAdd: TEdit;
    Label6: TLabel;
    procedure btnWordConnectClick(Sender: TObject);
    procedure btnDocCreateClick(Sender: TObject);
    procedure btnTableCreateClick(Sender: TObject);
    procedure btnRowAddClick(Sender: TObject);
    procedure btnRowDelClick(Sender: TObject);
    procedure btnTableDelClick(Sender: TObject);
    procedure btnWordDisconnectClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
 
    //Ссылка на Word.Application.
    wdApp     : Variant;
    //Ссылка на документ Word.
    wdDoc     : Variant;
    //Ссылка на таблицу Word.
    wdTable   : Variant;
    //Ссылка на строку в таблице.
    wdRow     : Variant;
 
    procedure WordDisconnect();
  end;
 
var
  frmMain: TfrmMain;
 
implementation
 
{$R *.dfm}
 
//Запускаем приложение MS Word, получаем на него ссылку.
//И делаем видимым главное окно MS Word.
function WordConnect() : Variant;
begin
  TVarData(Result).VDispatch := nil;
  Result := CreateOleObject('Word.Application');
  Result.Visible := True;
end;
 
//Создает документ.
function DocCreate(aWdApp : Variant) : Variant;
begin
  TVarData(Result).VDispatch := nil;
  if TVarData(aWdApp).VDispatch = nil then begin
    Exit;
  end;
  Result := aWdApp.Documents.Add();
end;
 
//Создаёт таблицу.
function TableCreate(aWdDoc : Variant; aRowCount : Longword; aColCount : Longword) : Variant;
var
  wdRange   : Variant;
  EndIndex  : Longword;
begin
  TVarData(Result).VDispatch := nil;
  if TVarData(aWdDoc).VDispatch = nil then begin
    Exit;
  end;
  //Диапазон документа.
  wdRange := aWdDoc.Range;
  //Позиция, расположенная после последнего символа в документе.
  EndIndex := wdRange.Characters.Count - 1;
  //Диапазон, представляющий позицию в конце документа.
  wdRange := aWdDoc.Range(EndIndex, EndIndex);
  //Добавляем таблицу в конец документа.
  Result := aWdDoc.Tables.Add(wdRange, aRowCount, aColCount);
end;
 
//Удаляет таблицу.
function TableDel(var aWdTable : Variant) : Boolean;
begin
  Result := False;
  if TVarData(aWdTable).VDispatch = nil then
    Exit
  ;
  aWdTable.Delete;
  TVarData(aWdTable).VDispatch := nil;
  Result := True;
end;
 
//Добавляет новую строку в таблицу.
//Если номер строки задан отрицательным числом, то считаем, что вставку
//нужно сделать в конец таблицы.
function TableRowAdd(aWdTable : Variant; aRowNum : Integer = -1) : Variant;
var
  RowCount    : Longword;
  RowNum      : Longword;
  wdRowBefore   : Variant;
begin
  TVarData(Result).VDispatch := nil;
  if TVarData(aWdTable).VDispatch = nil then begin
    Exit;
  end;
  //Число строк в таблице.
  RowCount := aWdTable.Rows.Count;
  if aRowNum < 0 then begin
    //Подразумевается вставка в конец таблицы.
    RowNum := RowCount + 1;
  end else if aRowNum = 0 then begin
    //Строки нумеруются с единицы. Поэтому исправляем номер на 1.
    RowNum := 1;
  end else begin
    //Принимаем номер как есть.
    RowNum := aRowNum;
  end;
  if RowNum < RowCount + 1 then begin
    //Для того, чтобы добавить новую строку в позицию RowNum,
    //требуется произвести вставку перед уже имеющейся строкой с номером RowNum.
    wdRowBefore := aWdTable.Rows.Item(RowNum);
    Result := aWdTable.Rows.Add(wdRowBefore);
  end else begin
    //В случае, когда строка добавляется в конец таблицы.
    Result := aWdTable.Rows.Add();
  end;
end;
 
//Удаляет строку из таблицы. Если номер строки задан отрицательным числом,
//то считаем, что требуется удалить последнюю строку в таблице.
function TableRowDel(aWdTable : Variant; aRowNum : Integer = -1) : Boolean;
var
  RowCount    : Longword;
  RowNum      : Longword;
begin
  Result := False;
 
  if TVarData(aWdTable).VDispatch = nil then begin
    Exit;
  end;
 
  //Число строк в таблице.
  RowCount := aWdTable.Rows.Count;
 
  //Если таблица состоит из одной строки, то удаление строки считаем невозможным.
  if RowCount = 1 then begin
    Exit;
  end;
 
  if aRowNum = 0 then begin
    //Строки нумеруются с единицы, поэтому делаем поправку.
    RowNum := 1;
  end else if (aRowNum < 0) or (aRowNum > RowCount) then begin
    //В этом случае полагаем, что требуется удалить последнюю строку.
    RowNum := RowCount;
  end else begin
    //Принимаем номер как есть.
    RowNum := aRowNum;
  end;
  aWdTable.Rows.Item(RowNum).Delete;
  Result := True;
end;
 
//Записывает значение в ячейку.
procedure TableCellWrite(aWdTable : Variant; aRowIndex : Longword; aColIndex : Longword; aStrValue : String);
begin
  if TVarData(awdTable).VDispatch = nil then begin
    Exit;
  end;
  aWdTable.Cell(aRowIndex, aColIndex).Range.Text := aStrValue;
end;
 
//Читает значение из ячейки.
function TableCellRead(aWdTable : Variant; aRowIndex : Longword; aColIndex : Longword) : String;
begin
  Result := '';
  if TVarData(awdTable).VDispatch = nil then begin
    Exit;
  end;
  Result := aWdTable.Cell(aRowIndex, aColIndex).Range.Text;
end;
 
//******************************************************************************
 
procedure TfrmMain.btnWordConnectClick(Sender: TObject);
begin
  wdApp := WordConnect();
end;
 
procedure TfrmMain.btnDocCreateClick(Sender: TObject);
begin
  wdDoc := DocCreate(wdApp);
end;
 
procedure TfrmMain.btnTableCreateClick(Sender: TObject);
begin
  wdTable := TableCreate(wdDoc, 1, 5);
end;
 
procedure TfrmMain.btnRowAddClick(Sender: TObject);
begin
  //Добавляем строку.
  if edIndexRowAdd.Text <> '' then begin
    //Добавляем строку в указанную позицию.
    wdRow := TableRowAdd(wdTable, StrToInt(edIndexRowAdd.Text));
  end else begin
    //Добавляем строку в конец таблицы.
    wdRow := TableRowAdd(wdTable);
  end;
  //Заполняем строку значениями.
  TableCellWrite(wdTable, wdRow.Index, 1, edCell1.Text);
  TableCellWrite(wdTable, wdRow.Index, 2, edCell2.Text);
  TableCellWrite(wdTable, wdRow.Index, 3, edCell3.Text);
  TableCellWrite(wdTable, wdRow.Index, 4, edCell4.Text);
  TableCellWrite(wdTable, wdRow.Index, 5, edCell5.Text);
end;
 
procedure TfrmMain.btnRowDelClick(Sender: TObject);
begin
  //Удаялем строку.
  if edIndexRowDel.Text <> '' then begin
    //Удаляем строку с указанным номером.
    wdRow := TableRowDel(wdTable, StrToInt(edIndexRowDel.Text));
  end else begin
    //Удаляем нижнюю строку в таблице.
    wdRow := TableRowDel(wdTable);
  end;
end;
 
procedure TfrmMain.btnTableDelClick(Sender: TObject);
begin
  TableDel(wdTable);
end;
 
procedure TfrmMain.btnWordDisconnectClick(Sender: TObject);
begin
  WordDisconnect();
end;
 
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  WordDisconnect();
end;
 
procedure TfrmMain.WordDisconnect;
begin
  //Обнуление ссылок.
  TVarData(wdRow).VDispatch := nil;
  TVarData(wdTable).VDispatch := nil;
  TVarData(wdDoc).VDispatch := nil;
  TVarData(wdApp).VDispatch := nil;
end;
 
end.