DBGridEh1. Не позволяет ввести данные

[said_83]

После ввода следующего кода внести данные в DBGridEh1 невозможно. Как быть в данном случае? В чем ошибка?

procedure Timit_vvod.FormActivate(Sender: TObject);
var
k, m:integer;
begin
 for m:=0 to imit_vvod.DBGridEh1.FieldCount-1 do begin
 if m=0 then imit_vvod.DBGridEh1.Columns.Items[m].Visible:=true
 else imit_vvod.DBGridEh1.Columns.Items[m].Visible:=false;
                                                 end;
  k:=1;
with new_sir.Table1 do begin First;
      while not eof do begin
      imit_vvod.DBGridEh1.Columns.Items[k].Visible:=true;
      imit_vvod.DBGridEh1.Columns.Items[k].FieldName:=
      new_sir.Table1New_zat.Value;
      k:=k+1;
      new_sir.Table1.Next;
                       end;
                       end;
                                                end;