Tabela não ordena

Tenho uma tabela e um campo Integer. Preciso sempre incrementar 1 a este campo, toda vez q eu inserir um novo registro. Faço assim:

var
cont: integer;
begin
tabela.open;
tabela.last;
cont:=1;
cont:=cont+tabelacampointeger.asinteger;
tabela.insert;
tabelacampointeger.asinteger:=cont;
tabela.filtered := false;
tabela.filter := ´cod_venda = -1´;
tabela.filtered:=true;
end;

no afterpost da tabela está assim:
begin
if vendanumero.asinteger = ´´ then exit;
tabela.filter := ´cod_venda = ´+vendnumero.asinteger;
dbisavechanges((dataset as ttable).handle);
end;

este campo é uma chave primária. Qdo reseto a aplicação, e volto, o ponteiro da tabela, não vai para o último registro com o comando last. Qdo abro o DataBase DeskTop, é listado assim:
1, 2, 5,3 , 4 mas deveria estar assim: 1, 2, 3, 4, 5. O q será. Tenho um campo autoincremental como primária também. O q será?