Delphi - DBGridEH deleted records

[Chicago]

Суть:
Записи, помеченные к удалению должны выделяться красным цветом.
Так вот.... Не работает!..

Проблемный код:
procedure TForm1.DBGDrawColumnCell(Sender: TObject; ---cut--- State: TGridDrawState);
var
RCProps : RecProps;
Result : DBIResult;
begin
result:=DbiGetRecord(hdbicur(DBG.handle), dbiNOLock, Nil, @RCProps);
if RCProps.bDeleteFlag then
begin
DBG.Canvas.Brush.Color := CLRED;
DBG.Canvas.Font.Color := clWhite;
DBG.Canvas.FillRect(Rect);
end
DBG.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

 

[sergiosv123]

DBG.Canvas.FillRect(Rect);