Delphi - Agregar registros

Hola!! yo de nuevo por aqui :) Bueno... este es mi problema.... Tengo un form en donde puse ya un table1 y datasource1 y puse los dbedit necesarios para cada campo. y tambien las vinculaciones a la base de datos y campos.
Lo que quiero hacer es un ciclo para que se agregen varios registros en donde un campo (id) aumente con una variable numerica y el otro campo (nombre) sea el mismo en todos... o sea.... mas o menos algo asi:
registro 1:
id=dato01 nombre=loco
registro2:
id=dato02 nombre=loco
...
registro 11
id=dato11 nombre=loco

Pense en un codigo asi: Donde yo capturo "dato" en edit1 y "loco" en edit2

table1.Open;
table1.Edit;
table1.Last;
for x:=0 to 10 do
begin
dbnavigator1.BtnClick(nbinsert);
if x<10 then
a:='0'+inttostr(x)
else
a:=inttostr(x);
dbedit1.text:=dbedit1.Text+a; //campo "id"
dbedit2.Text:=dbedit2.text; //campo "nombre"
dbnavigator1.BtnClick(nbpost);
end;

Pero me manda un error de Field ID must have a value
y pues no se que onda.. trate de hacer varias cosas, pero no puedo :'(
Alguien me puede ayudar¡? Gracias

Prueba esto:
var
I:Integer;
begin
I:=1;
repeat
Tabla1.Insert;
Tabla1ID.Value:=I;
Tabla1Nombre.Value:=Edit2.Text;
Tabla1.Post;
inc(I);
until
I:=strtoint(Edit1.Text);
end;
O esto otro
for I:=1 to strtoint(Edit1.Text) do
begin
Tabla1.Insert;
Tabla1ID.Value:=I;
Tabla1Nombre.Value:=Edit2.Text;
Tabla1.Post;
end;
Suerte