экспорт из StringGrid в Word

[Бусурманин хлоров]

Всем привет! Я хочу экспортировать данные из таблички StringGrid в Word. Все сделал-проект компилируется, но при запуске процедуры Delphi просит ввести enter table number. Я не знаю что это такое, подскажите пожалуйста как решить эту проблему

procedure TForm1.Button1Click(Sender: TObject);
const 
aworddoc = 'C:\xyztesttable.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;

[Stilet]

Это ведь не твой код?
Он вносит данные в уже имеющуюся таблицу, которой скорее всего у тебя нет.
Загляни сюда:http://www.programmersforum.ru/showthread.php?t=57366
Обрати внимание на

NewDoc := WordApp.Documents.Add;

и

WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);

Что есть ярким примером создания документа и создания таблицы.