[UlarSoft]

Экспортирую из Дельфи в Excel из таблицы, вот код программы:
procedure TfmSprRni.tPrintExecute(Sender: TObject);
begin
with dm do
BEGIN
{не забудьте включить ComObj в список используемых модулей}
// Создаем массив элементов, полученных в результате запроса
XArr:=VarArrayCreate([1,qSprRni.FieldCount],varVariant);
XL:=CreateOLEObject('Excel.Application'); {Создание OLE объекта}
XL.WorkBooks.add;
XL.visible:=true;

j := 4;

XL.Range['A1','B1'].MergeCells:=True; {Объединение ячеек}
XL.Range['A1','A1'].Value :='Справочник РНИ';
XL.Range['A1','A1'].Font.Bold:=True;
XL.Range['A1','A1'].Font.Color:=clRed;
XL.Range['A3','A3'].Value :='Наименование';
XL.Range['A3','A3'].Font.Bold:=True;
XL.Range['B3','B3'].Value :='Код';
XL.Range['B3','B3'].Font.Bold:=True;

qSprRni.First;
while not qSprRni.Eof do
begin
i:=1;
while i<=qSprRni.FieldCount do
begin
XArr[i] := qSprRni.Fields[i-1].Value;
i := i+1;
end;
XL.Range['A'+IntToStr(j),
CHR(64+qSprRni.FieldCount)+IntToStr(j)].Value := XArr;
qSprRni.Next;
j:=j+1;
end;
XL.Range['A1',CHR(64+qSprRni.FieldCount)+IntToStr(j)].select;
XL.Selection.Font.Name:='Arial cur';
XL.Selection.Font.Size:=10;
XL.selection.Columns.AutoFit;
XL.Range['A1','A1'].select;
End;


end;

Вопрос: Как из Delphi нарисовать границу ячеек в Excel?