Создание отчета

[Alsou]

У меня имеется таблица со списком населения, по которой нужно сделать справку в Excel. Сначала, я делаю фильтрацию, а потом переход в Excel. Данные отображаются в виде таблицы, но есть проблема: не могу сделать границы для этой таблицы. Пробовала такой код:

Sheet.Cells[9,1]:='Родственные отношения';
Sheet.Cells[9,2]:='Фамилия, имя, отчество гражданина';
Sheet.Cells[9,3]:='Дата рождения'
for i := 1 to form25.DBGrid1.Columns.Count do
Sheet.Cells[10,i]:=form25.DBGrid1.Columns.Items[i-1].FieldName;
index:=10;
form25.adotable1.First;
for i := 0 to form25.adotable1.RecordCount-1 do
begin
for j := 1 to form25.DBGrid1.Columns.Count do
Sheet.Cells[index,j ]:=form25.adotable1.Fields.Fields[j-1].AsString;
Inc(index);
form25.adotable1.Next;
end;
XL.ActiveWorkBook.WorkSheets[1].Range['a9','c9'+(IntToStr(ADOTable1.Recor dCount))].Select; //выдяляем всю таблицу
XL.Selection.Borders.LineStyle:=xlC ontinuous;
XL.Selection.Borders.Weight:=xlThin ;
XL.Selection.WrapText:=true;
Таблица выделяется границами и вместе с ней еще лишних 40 строк.
Как это убрать?
Помогите пожалуйста...