uses
 ComObj;
procedure TForm1.Button1Click(Sender: TObject);
const
 AWordDoc = 'C:\xyz\testTable.doc';
var
 MSWord, Table: OLEVariant;
 iRows, iCols, iGridRows, jGridCols, iNumTables, iTableChosen: Integer;
 CellText: string;
 InputString: string;
begin
 try
  MSWord := CreateOleObject('Word.Application');
 except
  // Error....
  Exit;
 end;
 try
  MSWord.Visible := False;
  MSWord.Documents.Open(AWordDoc);
  // Get number of tables in document
  iNumTables := MSWord.ActiveDocument.Tables.Count;
  InputString := InputBox(IntToStr(iNumTables) +
  ' Tables in Word Document', 'Please Enter Table Number', '1');
  // Todo: Validate string for integer, range...
  iTableChosen := StrToInt(InputString);
  // access table
  Table := MSWord.ActiveDocument.Tables.Item(iTableChosen);
  // get dimensions of table
  iCols := Table.Rows.Count;
  iRows := Table.Columns.Count;
  // adjust stringgrid columns
  StringGrid1.RowCount := iCols;
  StringGrid1.ColCount := iRows + 1;
  // loop through cells
  for iGridRows := 1 to iRows do
  for jGridCols := 1 to iCols do
  begin
  CellText := Table.Cell(jGridCols, iGridRows).Range.FormattedText;
  if not VarisEmpty(CellText) then
  begin
  // Remove Tabs
  CellText := StringReplace(CellText,
  #$D, '', [rfReplaceAll]);
  // Remove linebreaks
  CellText := StringReplace(CellText, #$7, '', [rfReplaceAll]);
  // fill Stringgrid
  Stringgrid1.Cells[iGridRows, jGridCols] := CellText;
  end;
  end;
  //..
 finally
  MSWord.Quit;
 end;
end;