Posicionar cursor en word

[Wdo.Net]

Hola, Neftalí, hoy probé el código que me sugeriste y funcionó correctamente, pero aún tengo incoveniente con lo que realmente quiero hacer, por eso a continuación voy a colocar el codigo que estoy utilizando para tratar de exportar: Los datos contenidos en un StringGrid y a continuacion de estos, dejando por ejemplo dos espacios , insertar un grafico correspondiente a dichos datos. Te aclaro que la parte de introducir los datos del StringGrid en un documento de Word funciona correctamente, pero el inconveniente precisamente es que el cursor queda posicionado en la celda (1,1) de la tabla en Word, y debido a esto no puedo colocar la imagen de un Chart en una posicion diferente de la hoja o documento de Word.

Codigo:

Código Delphi [-]
procedure TMDIChildMAD.SBEWordClick(Sender: TObject);
var
  WordTable: Table;
  i, j, RowCount, ColCount: Integer;
  W, S, Nombre, Formato: OleVariant;
begin
  if High(MMAD) <> -1 then
    begin
      if SDMAD.Execute then
        begin
          WDMAD.Connect;
          try
            RowCount := Actores;
            ColCount := Actores;
            WordTable := WDMAD.Tables.Add(WDMAD.Range,RowCount + 1,ColCount + 1,W,S);
            for i := 1 to ColCount do
              begin
                WordTable.Cell(1, i + 1).Range.Font.Bold := 1;
                WordTable.Cell(1, i + 1).Range.Text := MActores[i - 1][0];
                WordTable.Cell(1, i + 1).Range.Paragraphs.Alignment := wdAlignParagraphCenter;
                WordTable.Cell(1, i + 1).Range.Cells.Shading.BackgroundPatternColor:= clSilver;
              end;
            for i := 1 to RowCount do
              begin
                WordTable.Cell(i + 1, 1).Range.Font.Bold := 1;
                WordTable.Cell(i + 1, 1).Range.Text := MActores[i - 1][0];
                WordTable.Cell(i + 1, 1).Range.Paragraphs.Alignment := wdAlignParagraphCenter;
                WordTable.Cell(i + 1, 1).Range.Cells.Shading.BackgroundPatternColor:= clSilver;
              end;
            for i:= 1 to RowCount do
              for j:= 1 to ColCount do
                begin
                  WordTable.Cell(i + 1, j + 1).Range.Text:=IntToStr(MMAD[i - 1][j - 1]);
                  WordTable.Cell(i + 1, j + 1).Range.Paragraphs.Alignment := wdAlignParagraphCenter;
                  if i = j then WordTable.Cell(i + 1, j + 1).Range.Cells.Shading.BackgroundPatternColor:= clCream;
                end;
            WordTable.Borders.Enable:= 1;
          finally
            Nombre:= SDMAD.FileName;
            WDMAD.SaveAs(Nombre,Formato);
            WDMAD.Application.Visible := true;
            WDMAD.Disconnect;
          end;
        end;
    end
  else ShowMessage('La Matriz MAD no ha sido guardadada');
end;

WDMAD: TWordDocument.
SDMAD: TSaveDialog.