TDrawgrid проблем

Имам следния проблем:
Дал съм DefaulDrawing property -то на False и искам сам да си чертая фокус rectangle. За тази цел в OnDrawCell event съм написал:

if gdFocused in state then
myGrid.Canvas.DrawFocusRect(Rect);

Това работи но ако смениш фокуса по грида, фокусираните квадрати остават с очертание. Как да си реша проблема!

Когато клетката губи фокуса, трябва да изтриеш правоъгълника пак със същата процедура: myGrid.Canvas.DrawFocusRect(Rect);
Това обаче трябва да става в друг event (напр. OnSelectCell ако имаше такъв - нямам Delphi в момента)