[roman]

Como lo tienes vas por buen camino. Lo que falta es poner la condición para que se restrinja a la celda que quieres, algo como:

Código Delphi [-]
procedure TForm1.calendarioDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol = 5) and (ARow = 5) then
    calendario.canvas.brush.color := clGreen;

  calendario.Canvas.FillRect(rect);
  calendario.canvas.TextOut(Rect.Left,Rect.Top,calendario.Cells[ACol,ARow]);
end;

// Saludos