Fórum Erro: Informações insuficientes ou incorretas sobre a coluna, de chave, muitas linhas foram afetadas pela atualização. #615856

Código:
procedure TForm1.Button9Click(Sender: TObject);
var
    i,J,iTot: Integer;
    registro: array of variant;
begin
    iTot := StrToIntDef(DBEdit2.Text,0); // configura o tamanho do array [Linhas] com o número de campos da tabela
    SetLength(registro, ADOTable1.FieldCount); // grava o conteúdo do registro posicionado, de onde serão feitas as cópias
    for J := 0 to ADOTable1.FieldCount-1 do
        registro[J] := ADOTable1.Fields[J].Value;
    for I := 1 to iTot do
    begin
        ADOTable1.Append; //  cria um registro em branco
        for J := 1 to High(registro) do // recupera os valores do array ''''registro''''
          if (J = 1) then
              ADOTable1.Fields[J].AsInteger := registro[J]//Incremento do Tombamento
        else
        ADOTable1.Fields[J].Value := registro[J];//Demais campos
        ADOTable1.edit;
        ADOTable1.Post;
    end;
    ADOTable1.Close;
    ADOTable1.Open;
end;