MS Word, Table, Header. Проблема с "фокусировкой" текста в ячейки

[EaRLL]

В теме треда отражено уже почти половина проблемы, в дополнение:
Есть программа, суть которой создать через заданные поля в программе - в ворде наклепать депешу.
Так вот, к примеру возьмем почти пустую программу и пустой лист вордовский.
С помощью нехитрой функции создаем пустой лист:

procedure TfMain.toWordClick(Sender: TObject);
var
  tablic : integer;
  HeaderRange : Variant;
begin
  try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try
      MsWord := CreateOleObject('Word.Application');
      MsWord.Visible := True;
    except
      Exception.Create('Error #00152');
    end;
  end;

  MSWord.Documents.Add;

с помощью второй нехитрой функции (к примеру) добавим пару слов:

  MSWord.Selection.Font.Size := 14;
  MSWord.Selection.TypeText('Просто текст');
  MSWord.Selection.Font.Bold := true;
  MSWord.Selection.TypeText(#13#10'Жирный текст');

с помощью другой нехитрой функции (начинается самое интересное) добавляем табличку с одной строкой и двумя колонками в верхний колонтитул:

  HeaderRange := MSWord.ActiveDocument.Sections.Item(1).Headers.Item(1).range;

  CreateTable( HeaderRange, 1, 2, tablic );

с помощью ещё одной нехитрой функции добавляем чуть-чуть текста в ячейки:

  SetTextToTable( tablic, 1, 1, 'Логотип');
  SetTextToTable( tablic, 1, 2, 'Инфа');

end;

что мы имеем в итоге? а мы имеем в итоге нормальную страницу, приправленную чуточкой текста, забабаханой табличкой в верхнем колонтитуле но... пустой. Казалось бы, вроде все выполнено по уму, ан нет, в чем-то загвоздка. Что самое интересное., если вместо

HeaderRange := MSWord.ActiveDocument.Sections.Item(1).Headers.Item(1).range;

поставить

HeaderRange := MSWord.selection.Range;

то табличка без проблем создается в теле после текста и в неё добавляется текст, а вот в колонтитульную таблицу вообще никак не хочет добавлятся, хоть и таблицу создает.
Кто подскажет, кто расскажет, что за проблемка?

Сами функции создания таблички и добавления текста:

function CreateTable(Range:variant; NumRows, NumColumns:integer; var index:integer) : boolean;
begin
  CreateTable:=true;
    try
      MSWord.ActiveDocument.Tables.Add(Range, NumRows, NumColumns);
      index := MSWord.ActiveDocument. Tables.Count;
    except
      CreateTable:=false;
    end;
end;

function SetTextToTable(Table:integer; Row, Column:integer; text:string) : boolean;
begin
  SetTextToTable:=true;
    try
      MSWord.ActiveDocument.Tables.Item(Table).Columns.Item(Column).
      Cells.Item(Row).Range.Text := text;
    except
      SetTextToTable := false;
    end;
end;