[vinni]

Привет! Помогите плизз. Такая проблема: есть приведенная ниже процедура. как мне ее вызывать в нужном месте программы?

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
// Красим фон нечетных строк
if TDBGrid( Sender ).DataSource.DataSet.RecNo mod 2 <> 0 then
TDBGrid( Sender ).Canvas.Brush.Color := clInfoBk;

// Восстанавливаем выделение текущей позиции курсора
if gdSelected in State then
begin
TDBGrid( Sender ).Canvas.Brush.Color := clHighLight;
TDBGrid( Sender ).Canvas.Font.Color := clHighLightText;
end;

// Перерисовываем GRID
TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State );
end;

При вызове TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State ); и TForm1.DBGrid1DrawColumnCell(Sender; const Rect:;
DataCol; Column; State); в различных вариантах выдаюцца ошибки.
Заранее спасиба!!!