Violação de chave primaria - PARADOX EM REDE

O negócio é o seguinte:

Quando você está trabalhando com o sistema em rede, ainda mais o Piradox, não pode esquecer que você é responsável por controlar a concorrência nas tabelas. Assim sendo o que pude ver no seu código, a não ser que deva existir mais alguma coisa é simplesmente o seguinte:

Você tem uma tabela - E aqui você está redeclarando uma coisa sem necessidade que é o nome da tabela para uma outra tabela e definindo o índice. Depois de abrir a tabela, você salta para o último registro e tenta atribuir um valor para o campo sem colocá-lo em modo de edição.

Em primeiro lugar eu recomendaria o seguinte:
Não faça essa redeclaração de tabela.

Crie uma nova tabela que irá se responsabilizar em ceder o valor autoincrementado.

Por exemplo: Crie uma tabela chamada TaAutoIncMail.Db
Crie nela somente um campo chamado CONTADOR e defina-o como Integer - Ele será a chave primária da tabela também, pois só existirá esse campo na tabela.

Agora coloque essa tabela no seu Data Module e defina a [b:e248218d8c][]upropriedade Exclusive para True[/b:e248218d8c][/u].

No form principal de sua aplicação, crie a seguinte função:

function TFormPrincipal.IncrementaCampo(vNomeTab: TTable; vCampo: String): LongInt;
var
Parar : Boolean;
begin
Repeat
Parar := True;
try
vNomeTab.Active := True;
except
Parar := False;
end;
until Parar = True;

vNomeTab.Edit;
vNomeTab.FieldByName(vCampo).asInteger := vNomeTab.FieldByName(vCampo).AsInteger + 1;
Result := vNomeTab.FieldByName(vCampo).asInteger;
vNomeTab.Post;
vNomeTab.Active := False;
end;

Feito isso, você irá chamar esse evento ou antes de gravar ou após inserir. Eu prefiro usar esse procedimento sempre antes da gravação, assim eu nunca perco um valor.

Uso esse código faz tempo e foi repassado por um cara aqui do Clube do Delphi. É extremamente eficiente.