如何将这段代码变成通用过程

这点代码也是来自网上，它帮我实现了DBGRID控件隔行变色等功能，但我的系统用了很多dbgrid控件，所以麻烦哪位朋友帮我把这段代码变成通用过程，谢谢！ 这点代码也是来自网上，它帮我实现了DBGRID控件隔行变色等功能，但我的系统用了很多dbgri