var // Farben zu Beginn 
  grund: integer = $AFFFF8; 
  schrift: integer = $550000; 
  selgrund: integer = clgreen; 
  selschrift: integer = clyellow; 
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
  with DBGrid1.Canvas do begin 
    if gdSelected in State then begin 
      font.color := selschrift; 
      Brush.Color := selgrund; 
    end else begin 
      font.color := schrift; 
      Brush.Color := grund; 
    end; 
  end; 
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end; 
 
 
// umfärben 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  grund := $FFFFF0; 
  schrift := $550055; 
  selgrund := clred; 
  selschrift := clwhite; 
  DBGrid1.refresh; 
end;