关于delphi中显示字体颜色的控制，在TcxGrid中显示，急谢谢啦

我想问一下，procedure TfrmXlzfxmQuery.grd_ypTVCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
inherited;
if AViewInfo. then //怎么写？
ACanvas.Font.Color:=RGB(255,0,0);
end;
 
我要动态设置的条件是：当cds_reslut.fieldByName('zt').asstring='无效'.则
该行的显示为红色。
怎么写？谢谢啦。