关于一些dbgrideh字段的属性有没有简单的写法？

Question

今天要针对dbgrideh某个列允许编辑，其它字段全部设为只读不知有没有简单的写法？我这样写太复杂了，谁教我的种简单的写法？
         DBGridEh1.Columns[0].ReadOnly:=true;
         DBGridEh1.Columns[1].ReadOnly:=true;
         DBGridEh1.Columns[2].ReadOnly:=true;
         DBGridEh1.Columns[3].ReadOnly:=true;
         DBGridEh1.Columns[4].ReadOnly:=true;
         DBGridEh1.Columns[5].ReadOnly:=true;
         DBGridEh1.Columns[6].ReadOnly:=true;
         DBGridEh1.Columns[7].ReadOnly:=true;
         DBGridEh1.Columns[8].ReadOnly:=true;
         DBGridEh1.Columns[9].ReadOnly:=true;
         DBGridEh1.Columns[10].ReadOnly:=true;
         DBGridEh1.Columns[11].ReadOnly:=true;
         DBGridEh1.Columns[12].ReadOnly:=true;
         DBGridEh1.Columns[13].ReadOnly:=true;
         DBGridEh1.Columns[14].ReadOnly:=true;
         DBGridEh1.Columns[15].ReadOnly:=true;
         DBGridEh1.Columns[16].ReadOnly:=true;
         DBGridEh1.Columns[17].ReadOnly:=true;
         DBGridEh1.Columns[18].ReadOnly:=true;
         DBGridEh1.Columns[19].ReadOnly:=true;
         DBGridEh1.Columns[20].ReadOnly:=true;
         DBGridEh1.Columns[21].ReadOnly:=true;
         DBGridEh1.Columns[22].ReadOnly:=true;
         DBGridEh1.Columns[23].ReadOnly:=true;
         DBGridEh1.Columns[24].ReadOnly:=true;
         DBGridEh1.Columns[25].ReadOnly:=true;
         DBGridEh1.Columns[26].ReadOnly:=false;
         DBGridEh1.Columns[27].ReadOnly:=true;
         DBGridEh1.Columns[28].ReadOnly:=true;
         DBGridEh1.Columns[29].ReadOnly:=true;
         DBGridEh1.Columns[30].ReadOnly:=true;
         DBGridEh1.Columns[31].ReadOnly:=true;
         DBGridEh1.Columns[32].ReadOnly:=true;
         DBGridEh1.Columns[33].ReadOnly:=true;
         DBGridEh1.Columns[34].ReadOnly:=true;
         DBGridEh1.Columns[35].ReadOnly:=true;
         DBGridEh1.Columns[36].ReadOnly:=true;
         DBGridEh1.Columns[37].ReadOnly:=true;
         DBGridEh1.Columns[38].ReadOnly:=true;
         DBGridEh1.Columns[39].ReadOnly:=true;
         DBGridEh1.Columns[40].ReadOnly:=true;
         DBGridEh1.Columns[41].ReadOnly:=true;
         DBGridEh1.Columns[42].ReadOnly:=true;
         DBGridEh1.Columns[43].ReadOnly:=true;

Answer 1

var i:integer;with DBGridEh1 do
for i:=0 to Columns.Count-1 do
Columns[i].ReadOnly:=true;

Answer 2

var i:integer;with DBGridEh1 do
   while i<=Columns.Count-1 do
   begin
      Columns[i].ReadOnly:=true;
      i := i + 1;
   end;

Answer 3

var 
 i:integer
   for i:=0 to DBGridEh1.Columns.Count-1 do
   begin
     DBGridEh1.Columns[0].ReadOnly:=true;
   end;
    DBGridEh1.Columns[26].ReadOnly:=false;//想要编辑的列

Answer 4

var i:integer;with DBGridEh1 do
   while i<=Columns.Count-1 do
   begin
      Columns[i].ReadOnly:=true;
      i := i + 1;
   end;