[Dagmanor]

Всем доброго времени суток. Прошу помощи по вот такому вопросу:
Решил сделать небольшой календарик, на форму положил StringGrid и в ячейках вывожу числа. На фоне чисел в каждой ячейке хотел сделать круг

OnDrawCell делаю так:

Код:

with Calendar.Canvas do
 begin
       R:=Rect;
        R.Top:=R.Top+5;
        R.Left:=R.Left+5;
        R.Bottom:=r.Bottom-5;
        R.Right:=r.Right-5;
        Pen.Color:=clHotLight;
        Brush.Color:=clHotLight;
        Ellipse(R);
 
 
   
  end;

Все, в принципе получается, но корявенько как-то. Пробовал применить сглаживание как в этом примере , но тоже не фонтан, плюс очень медленно все отрисовывается...
Подскажите пожалуйста может есть какие-то другие способы нормально сгладить то что нарисовано на канве?

Для написания использую Delphi 7.