procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  Canvas.Brush.Color:=clRed;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Open;
end;