Открытие MOWord через Delphi 7

[X@OC]

Доброго времени суток

Делал простенькую СУБД на Delphi 7
подошел к созданию отчета
и вот с чем столкнулся

сразу кидаю код

w:=CreateOleObject('Word.Application');
w.documents.add;
myrange:=w.activedocument.range(w.activedocument.range.end-1,w.activedocument.range.end-1);
tab:=w.activedocument.tables.add(range:=myrange, numrows:=ADOTable1.RecordCount+1, numcolumns:=ADOTable1.FieldCount);
tab.columns.item(1).width:=50;
tab.autoformat(format:=10);

myrange:=tab.cell(1,1).range;
myrange.text:='rc';
myrange:=tab.cell(1,2).range;
myrange.text:='city';
myrange:=tab.cell(1,3).range;
myrange.text:='fio';
myrange:=tab.cell(1,4).range;
myrange.text:='years';
myrange:=tab.cell(1,5).range;
myrange.text:='tol';
myrange:=tab.cell(1,6).range;
myrange.text:='type';

ADOTable1.First;
for i:=1 to ADOTable1.RecordCount do
begin
for j:=1 to ADOTable1.FieldCount do
begin
myrange:=tab.cell(i+1,j).range;
  case j of

Далее - вот тут неопределено (выделено красным) :
1:myrange.text:=IntToStr(ADOTable1rc.asinteger);
2:myrange.text:=ADOTable1city.asstring;
3:myrange.text:=ADOTable1fio.asstring;
4:myrange.text:=IntToStr(ADOTable1years.asintger);
5:myrange.text:=IntToStr(ADOTable1tol.asinteger);
6:myrange.text:=ADOTable1type.asstring;

 end; //case
end; //for j
ADOTable1.Next;
end; // for i
w.visible:=true;
end; //procedure

делал все по учебнику но оно не работает
выдает такую ошибку
[Error] Unit1.pas(184): Undeclared identifier: 'ADOTable1rc'
.........

что я делаю не так подскажите пожалуйста

[Пепел Феникса]

ну я так полагаю что это не метод формы(на которой лежат компоненты)

[hislomax]

Данная ошибка, кажется, означает, что ADOTable1rc не существует

[X@OC]

смысл ошибки понимаю
но как от нее избавится
ведь пишу по учебнику и там написано так

[mihali4]

Поле RC не определено.
Даблклик по компоненту ADOTable1 и добавить все поля...

[X@OC]

не все равно сипит ошибки
вот полный исходник
посмотрите может у кого заработает

[evg_m]

Объявлены поля (fileds)
rrc: TAutoIncField;
rcity: TWideStringField;
rfio: TWideStringField;
ryears: TIntegerField;
rtol: TIntegerField;
rtype: TWideStringField;

использованы поля (fields)

case j of
   1:myrange.text:=IntToStr(ADOTable1rc.asinteger);
   2:myrange.text:=ADOTable1city.asstring;
   3:myrange.text:=ADOTable1fio.asstring;
   4:myrange.text:=IntToStr(ADOTable1years.asintger);
   5:myrange.text:=IntToStr(ADOTable1tol.asinteger);
   6:myrange.text:=ADOTable1type.asstring;

При работе необходимо использовать ранее объявленные имена переменных (полей).
Может - ADOTable1rrc.asinteger ?