procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if 此记录满足某条件 then with TDBGrid(Sender) do
begin
Canvas.Brush.Color := clRed; //红色
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;