[san-46]

Код:

uses DateUtils;

procedure TForm1.DrawGrid1Click(Sender: TObject);
var R : TRect;
begin
  R := DrawGrid1.CellRect(X, Y); 
  //если X,Y - координаты ячейки, которая не видна, то CellRect возвращает
  //пустое значение
  if not IsRectEmpty(R) then
    DrawGrid1.Canvas.TextOut(R.Left, R.Top, IntToStr(MonthOf(DateValue)));
end;