Specified argument was out of the range of valid values

8) Boa tarde,

Tenho o seguinte erro:
[b:6719bc8dc1]Specified argument was out of the range of valid values. Parameter name: index [/b:6719bc8dc1].

Tenho dois datagrids. O primeiro vai conter dados do banco, como nome, codigo endereço, etc e um checkbox onde quero que quando a pessoa selecione os clientes desejados, estes sejam mostrados no segundo datagrid após ter clicado no botão filtrar. Utilizo o seguinte código:

procedure TWebForm1.DataGrid1_ItemCommand(source: System.Object; e: System.Web.UI.WebControls.DataGridCommandEventArgs);
const
MyFields = 5;
var
MyFieldData: array [0..MyFields-1] of string;
i:integer;
ds: DataSet;
dt: DataTable;
col: DataColumn;
row: DataRow;
cb : CheckBox;
begin
if e.CommandName = ´Inserir´ then
begin
BdpDataAdapter1.Active := False;

for i:=0 to MyFields-1 do
[b:6719bc8dc1] [color=red:6719bc8dc1]MyFieldData[i] := (e.Item.Cells[i].Controls[0] as TextBox).Text;[/color:6719bc8dc1][/b:6719bc8dc1]
Response.Write (´não checado´);

ds := System.Data.DataSet.Create();
dt := ds.Tables.Add(´CUSTOMER1´);
col := dt.Columns.Add(´CUST_NO´);
col := dt.Columns.Add(´CUSTOMER´);
col := dt.Columns.Add(´PHONE_NO´);
col := dt.Columns.Add(´CITY´);
col := dt.Columns.Add(´COUNTRY´);
row := dt.NewRow;
row[´CUST_NO´] := MyFieldData[0];
row[´CUSTOMER´] := MyFieldData[1];
row[´PHONE_NO´] := MyFieldData[2];
row[´CITY´] := MyFieldData[3];
row[´COUNTRY´] := MyFieldData[4];
dt.Rows.add(row);

ds.WriteXml(Server.MapPath(´dados.xml´),XmlWriteMode.IgnoreSchema);

DataGrid2.DataSource := ds;
DataGrid2.DataBind;

BdpDataAdapter1.Active := True;
DataGrid1.EditItemIndex:=-1;
DataGrid1.DataSource := ds;
DataGrid1.DataBind;

pegar;
end;
end;

Na parte em vermelho é onde ocorre o erro.

Desde já muito obrigado
Davi