выгрузка в эксель)

[alexander1111]

доброй ночи)

есть скрипт который таблицу с бд перегоняет в excel.

 var
 XL, XArr: Variant;
 i: Integer;
 j: Integer;
begin
 XArr:=VarArrayCreate([1,ADOTAble1.FieldCount],varVariant);
 XL:=CreateOLEObject('Excel.Application');
 XL.WorkBooks.add;
 XL.visible:=true;

 j := 1;
 ADOTAble1.First;
 while not ADOTAble1.Eof do
  begin
   i:=1;
   while i<=ADOTAble1.FieldCount do
    begin
     XArr[i] := ADOTAble1.Fields[i-1].Value;
     i := i+1;
    end;
   XL.Range['A'+IntToStr(j),
   CHR(64+ADOTAble1.FieldCount)+IntToStr(j)].Value := XArr;
   ADOTAble1.Next;
   j:=j+1;
  end;
 XL.Range['A1',CHR(64+ADOTAble1.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;

1.как сделать чтоб он выводил и шапку самой таблицы?
2. В БД посл столбец "Состояние" имеет тип (bit). В экселе отображается как "Истина" - "Ложь".. Как сделать чтоб за место "Истинf" - в ячейка была зеленой , а за место "Ложь" - красной?