criação de autoincremental com tabela controle

ola galera clube delphi eu tenho um controle de codigo autoincremental no sql server usando delphi 7,
Que nao controla quando o codigo ja foi apagado ele nao gera novamente aquele codigo ja gera o proximo.

[b:34ba921f52]exemplo [/b:34ba921f52]se eu deletar o ultimo codigo 3 depois gerar um novo ele registro ele era o 4 e esquece o 3 ;

tem como eu fazer com que ele nao perca o ultimo codigo que nesse exemplo foi apagado.

minha rotina esta ai em baixo..

qrControle.Open;
qrFornecedoresCodigo.Value:= qrControleFornecedor.value+1;
qrControle.edit;
qrControleFornecedor.Value:= qrControleFornecedor.Value+1;
qrControle.Post;
qrControle.close;

obrigado a todos que possam me ajudar..