{ ----------------------- ЮНИТ С uXDrawGrid -----------------------------------}
unit uXDrawGrid;

interface

type

  TXDrawGrid = class(TDrawGrid)

   // нужно что-то типа этого
   // procedure OnDrawCell(Sender: TObject; ACol, ARow: integer; Rect: TRect; State: TGridDrawState);

  end;

implementation

// procedure TXDrawGrid.OnDrawCell(Sender: TObject; ACol, ARow: integer; Rect: TRect; State: TGridDrawState);
// begin
//   какие-то действия
// end;

end.


{--------------------ГЛАВНЫЙ ЮНИТ -----------------------}                                                                                                          
unit uCats;

interface

type
  TCatsForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CatsGrid: TXDrawGrid;

implementation

{$R *.dfm}

// СОЗДАЕМ TXDrawGrid;
procedure TCatsForm.FormCreate(Sender: TObject);
begin
  CatsGrid := TXDrawGrid.Create(Self);
end;

procedure TCatsForm.FormDestroy(Sender: TObject);
begin
  CatsGrid.Free;
end;

end.