Başlık ekleme

[Dostk]

Merhaba,

Ürünlerin olduğu bir database var iki tarih arası, haftalık olarak excele raporlama yapılacak kritere uygun olanlar listelenecek.
Listelemede hiç bir sıkıntı yok fakat, listelen ürünlere başlık olarak tarih eklemek isitiyorum bunu nasıl yapabilirim?

Örnek:
     15.01.2018 
1 ELMA 15.01.2018 
2 ARMUT 15.01.2018 
3 KİTAP 15.01.2018 

     16.01.2018 
1 TELEFON 16.01.2018 
2 UÇAK 16.01.2018 
3 KİTAP 16.01.2018 

     17.01.2018 
1 MASA 17.01.2018
2 ARMUT 17.01.2018 
3 KİTAP 17.01.2018 

      SQL.Clear;
      SQL.Add('Select * From URUNLER);
      SQL.Add('Where ACIKLAMA=:BUL And TARIH BETWEEN :TRH1 And :TRH2 Order By TARIH ASC, SIRANO');
      ParamByName('BUL').AsString := 'LOGOLU';
      ParamByName('TRH1').AsDate := IlkTarih.Date;
      ParamByName('TRH2').AsDate := SonTarih.Date;
      Open;
     

      Row := 3;
      while Not Eof do
      begin
        Sheet.Cells[1, 3] := FieldByName('TARIH').AsString;
        Sheet.Cells[2, 1] := 'GİRİŞİ';
        Sheet.Cells[2, 2] := 'ID';
        Sheet.Cells[2, 3] := '';
        Sheet.Cells[2, 4] := 'GİRİŞİ';
        Sheet.Cells[2, 5] := '';
        Sheet.Cells[2, 6] := 'ÇIKIŞI';
        Sheet.Cells[2, 7] := '';
        Sheet.Cells[Row, 1] := FieldByName('SIRANO').AsString;
        Sheet.Cells[Row, 2] := FieldByName('TARIH').AsString;
        Sheet.Cells[Row, 3] := FieldByName('URUNADI').AsString;
        Inc(Row);
        Next;
      end;