procedure TForm1.Button1Click(Sender: TObject);
var i,j : integer;
begin
  with DBCtrlGrid1 do begin
   for i := 0 to ControlCount - 1 do
   if Controls[i] is TDBCtrlPanel then begin
     for j := 0 to TDBCtrlPanel(Controls[i]).ControlCount - 1 do
     if TDBCtrlPanel(Controls[i]).Controls[j] is TDBEdit then begin
        TDBEdit(TDBCtrlPanel(Controls[i]).Controls[j]).Font.Color := clRed;
     end;
     TDBCtrlPanel(Controls[i]).Invalidate;
   end;
  end;
end;