[__cadetill]

mmmm, no he trabajado con ADO, pero creo que hay algún error en ese código que has puesto

si Id es autonumérico.... ¿por qué le asignas un valor?
si Id es autonumérico.... después del Post puedes consultar su valor, ¿no?

Podría quedar algo así

Código Delphi [-]
var
   i, j : Integer;
begin
    ADOTable1.Append; 
    ADOTable1Nombre.AsString:= 'Número : ' +IntToStr(i); 
    ADOTable1.Post;
    i := ADOTable1Numero.AsInteger;

    // Ahora asignar a k el valor del campo Id del registro insertado en Tabla1 
    for j:= 0 to 15 do 
    begin
      ADOTable2.Append; 
      ADOTable2Numero.AsInteger:= i;
      ADOTable2.Post;
    end;

Repito, no he trabajado con ADO, así que no se como funciona exactamente el tema de refrescos y tal en este motor