procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DBgrid1.DataSource.DataSet.FieldByName('Pass').AsBoolean then
begin
dbGrid1.Canvas.Brush.Color:=clGreen;
end;