[Zylex]

В событии таблицы OnDrawCell прописать:

Код:

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
    with Sender as TDrawGrid, Canvas do
    begin
        if (Acol = 2) and (Arow = 1) then
           TextOut(Rect.Left+10, Rect.Top+5,FormatDateTime('mmmm', Date));
    end;
end;