Marcar una fecha en un TMonthCalendar

[spyfenix]

Que tal genete, este codigo me ha sio de bastante ayuda la vdd.
le quiero modificar un aspecto que seria el seiguiente :

Código Delphi [-]
LockWindowUpdate(self.handle);
    TheTop:= 36;
    Dias := DaysInMonth(Fecha);// cuantos días tiene ese més?
    for cont := 1 to Dias  do
    begin
      dia := TfrmCelda.Create(frmPrincipal.tbCalendario);
      dia.Fecha := RecodeDay(fecha,cont); // asignamos la fecha y el caption de esa celda
      dia.Name := dia.Name + IntToStr(cont); // le ponemos un nombre irrepetible.
      dia.Left:= (DayOfTheWeek(dia.Fecha)-1) * dia.Width; // segun el dia de la semana y el ancho del Freame, lo situamos en pantalla.
      if dia.Left = 0 then
        TheTop := TheTop + dia.Height; // si el dia es 1 es Lunes, aumentamos el Top para la siguiente linea
      dia.Top := TheTop;
      dia.Parent:= frmPrincipal.tbCalendario; // lo hacemos visible en el Form
  
AQUI ME GUSTARIA AGREGAR ESTE BLOQUE PARA QUE CARGUE LOS DATOS SI HAY DATO SEGUN LA FECHA    
  
//cargamos las actividades que se hayan registrado
      {frmPrincipal.ADOQuery2.Close;
      frmPrincipal.ADOQuery2.Parameters.ParamByName('An').Value := frmPrincipal.EAn.Text;
      frmPrincipal.ADOQuery2.Parameters.ParamByName('Me').Value := frmPrincipal.EMes.Text;
      frmPrincipal.ADOQuery2.Parameters.ParamByName('Di').Value := cont;
      frmPrincipal.ADOQuery2.Open;
      if frmPrincipal.ADOQuery2.RecordCount  > 0 then
      begin
        dia.Memo1.Text := frmPrincipal.ADOQuery2.Fields[0].Value;
      end;}
      LockWindowUpdate(0);
   end;

Solo tengo un problema, como puedo saber el nombre del objeto que esta creando para pasar cargar los datos de la consulta

muchas gracias por la ayuda, saludos a todos