有没有办法突出显示TCalendar中的单元格？

procedure TForm1.Calendar1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Calendar: TCalendar;
  Canvas: TCanvas;
begin
  Calendar := Sender as TCalendar;
  Canvas := Calendar.Canvas;

  // 判断是否需要突出显示当前单元格
  if (ACol = Calendar.SelectedCol) and (ARow = Calendar.SelectedRow) then
  begin
    // 设置突出显示的背景色
    Canvas.Brush.Color := clYellow;
    // 设置突出显示的边框
    Canvas.Pen.Color := clRed;
    Canvas.Pen.Width := 2;
  end;

  // 绘制单元格背景色
  Canvas.FillRect(Rect);

  // 绘制单元格文本
  Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Calendar.Cells[ACol, ARow]);
end;