Вывод значений в Grid

procedure TGlav.FormActivate(Sender: TObject);
var days, i: integer;
  dat   : string;
  date  : TDate;
begin
  days:=DaysInMonth(MonthYear.Date);   //последний день месяца в DateTimePicker (в uses добавила DateUtils)
  date:= StartOfTheMonth(MonthYear.Date);   //первый день месяца
 
  // Имена в столбце
  DatMod.querChel.Close;
  DatMod.querChel.SQL.Clear;                              //для имен в столбце
  Kalendar.Columns.Clear;                                 //для имен в столбце
  DatMod.querChel.SQL.Add('select ch.Nik,');              //для имен в столбце
  Kalendar.Columns.Add;                                   //для имен в столбце
  Kalendar.Columns[0].FieldName:= 'Nik';                  //для имен в столбце
  Kalendar.Columns[0].Title.Caption:= 'Название';         //для имен в столбце
  Kalendar.Columns[0].Width:= 60;                         //для имен в столбце
 
  DatMod.querChel.SQL.Add('(Select d.Kon_per-d.Nach_per from Deyatelnost as d where ch.Id_cheloveka=d.Id_cheloveka) as kol ,');
  DatMod.querChel.SQL.Add('(Select (isnull(g.Vipoln,0)+isnull(g.Vihod,0)) AS slog from Grafik as g JOIN Deyatelnost as d ON d.Id_graf_deya=g.Id_graf_deya Where ch.Id_cheloveka=d.Id_cheloveka) as dni ,');
  ShowMessage(DatMod.querChel.SQL.Values['kol']);
 
     for i := 1 to days do
      begin
        DatMod.querChel.SQL.Add('(select (case when count(d.Id_deyatelnosti)=0 then '' '' else (CONVERT( CHAR( 20 ), d.Vremya_nach, 108))    end)');
        DatMod.querChel.SQL.Add('from Deyatelnost as d JOIN Grafik as g ON d.Id_graf_deya=g.Id_graf_deya');
        DatMod.querChel.SQL.Add('where ch.Id_cheloveka=d.Id_cheloveka ');
        DatMod.querChel.SQL.Add('and ((CONVERT( CHAR( 20 ), d.Nach_per, 104)<= '''+dateToStr(date)+''') and (CONVERT( CHAR( 20 ), d.Kon_per, 104)>= '''+dateToStr(date)+'''))');
        DatMod.querChel.SQL.Add('group by ch.Id_cheloveka,d.Nach_per,d.Vremya_nach,d.Kolvo_chas_deya)as field'+ IntToStr(i)+',');
        date:= IncDay(date);
        Kalendar.Columns.Add;
        Kalendar.Columns[i].FieldName:= 'field'+IntToStr(i);
        Kalendar.Columns[i].Title.Caption:= IntToStr(i);
        Kalendar.Columns[i].Width:= 50;
      end;
 
DatMod.querChel.SQL.Add('(select count(d.Id_deyatelnosti) from Deyatelnost as d)' );
 
 
  DatMod.querChel.SQL.Add('from Chelovek as ch order by ch.Nik');          //для имен в столбце
 
   DatMod.querChel.SQL.SaveToFile('D:\1.txt');
  DatMod.querChel.Open;                                    //для имен в столбце
 
end;