delphi2010怎么在一个过程中嵌套使用另一个组件过程

delphi2010如何在一个过程中嵌套使用另一个组件过程
我要在一个按钮过程中使用ehib组件的按条件显示颜色的过程,代码要怎么写
需要嵌入的过程：
procedure TForm1.dbgrdh1GetCellParams(Sender: TObject; Column: TColumnEh;
  AFont: TFont; var Background: TColor; State: TGridDrawState);
  //按條件顯示行顏色
begin
 if qry1.FieldByName(BYNAME).AsString =process then
         Background :=col;
end;
[解决办法]
在你使用的过程中调用该过程即可
procedure aa;
begin  
  //如果已经声明dbgrdh1GetCellParams方法, 在此调用, 填写正确的参数即可
  dbgrdh1GetCellParams();
end;