[Renat]

Как сделать границы?

Код:

begin
   try
     XLApp := CreateOleObject('Excel.Application');
     XLApp.WorkBooks.Add(GetCurrentDir+'\xls\Отчет.xls');
    except
     raise Exception.Create('not Excel');
   end;

Sheet:=XLApp.Workbooks[1].Worksheets['Отчет'];
index:=3;
DataModule2.ADOQuery1.First;
for i:=0 to DataModule2.ADOQuery1.RecordCount-1 do
begin
Sheet.Cells[index,1]:=DataModule2.ADOQuery1.Fields.Fields[1].AsString;
Sheet.Cells[index,2]:=DataModule2.ADOQuery1.Fields.Fields[2].AsString;
Sheet.Cells[index,3]:=DataModule2.ADOQuery1.Fields.Fields[3].AsString;
Sheet.Cells[index,4]:=DataModule2.ADOQuery1.Fields.Fields[4].AsString;
Sheet.Cells[index,5]:=DataModule2.ADOQuery1.Fields.Fields[7].AsString;
Sheet.Cells[index,6]:=DataModule2.ADOQuery1.Fields.Fields[8].AsString;
Sheet.Cells[index,7]:=DataModule2.ADOQuery1.Fields.Fields[9].AsString;
Sheet.Cells[index,8]:=DataModule2.ADOQuery1.Fields.Fields[10].AsString;
Sheet.Cells[index,9]:=DataModule2.ADOQuery1.Fields.Fields[11].AsString;
Inc(index);
DataModule2.ADOQuery1.Next;
XLApp.Visible := true;
end;