capturar data sob ponteiro do mous no monthcalendar

pessoal como faço para pegar a data que está sob o ponteiro do mouse no monthcalendar.
Estou usando a seguinte rotina mas não me retorna nada do monthcalendar, mas funciona para edits, labels, etc.

no ontimer de um componente timer

var
p: TPoint;
i: THandle;
x: integer;
s: array [ 0..2047 ] of char;
begin

GetCursorPos ( p );
GetWindowText (WindowFromPoint(p), s, x );
Edit2.text := s;
end;
Alguem poderia me ajudar

Agradeço desde já