Datos De Un Dbgrid A Un Calendario

[kainchu3102]

Tambien intente con un FDQuery pero igual me trae una sola fecha


procedure TFORMCALENDARIO.BitBtn1Click(Sender: TObject);
begin
with DataModule1.FDQuery1 Do
begin
SQL.Clear;
SQL.Add ('SELECT fec_tur FROM turnos');
// ORDER BY fecha_desde ASC'
Open();
end;

CAL1.Date := DataModule1.FDQuery1.Fields.FieldByName('fec_tur').AsDateTime;

end;