Fórum Classe de ferramentas - POO #480903

Estou tentando montar uma classe, com algums funções pra eu ir usando em meus projetos.
tentei fazer essa função de selecionar o grid e mandar zebrar, mas não está funcionando.
Não deixa eu compilar... Acusa erro na identicação... desconfio que falta alguma unit na uses.
Já rodei o google e não achei a qual ela pertence ou o que eu estou errando...
Se alguém poder me dar uma luz... Agradeço desde já

******************************************* CLASSE DE AUXILIO *****************************************

unit umytoys;

interface
uses
Variants, Classes, Graphics, Controls, ExtCtrls, Windows, Messages, SysUtils, IniFiles, DB, IBCustomDataSet, Dialogs, IBQuery, IBDatabase,
DBClient, Provider, StdCtrls, Jpeg, ComCtrls, GRids, IBScript, DBCtrls, DBGRids, forms;

type toys = class
grid : TDBGrid;
procedure Zebrar(const grid_selecionado : TDBGrid);
property SelecionaGrid : TDBGrid read grid write grid;
end;

implementation
procedure Toys.Zebrar(const grid_selecionado: TDBGrid);
begin
if not odd(grid_selecionado.DataSource.DataSet.RecNo) then begin
if not (gdSelected in State) then
begin
grid_selecionado.Canvas.Brush.Color := clMoneyGreen;
grid_selecionado.Canvas.FillRect(Rect);
grid_selecionado.DefaultDrawDataCell(rect,Column.Field,state);
end;
end;
end;

end.