Reordenar consecutivo

[Vlady]

Gracias casimiro pero de esta forma me salta que el ID ya existe y da error de primary key ya existe.

[Casimiro Noteví]

Empezado por Vlady

Gracias casimiro pero de esta forma me salta que el ID ya existe y da error de primary key ya existe.

Claro, porque debes saltarte los que ya existen con el código correcto. Prueba algo parecido a esto:

query.close;
query.selectsql.text := 'select * from tbclientes order by apellidos, nombre';
query.open;
iNumero := 1;
while not query.eof do
begin
  if query.fieldbyname('codigo').asinteger <> iNumero then
  begin
    query.edit;
    query.fieldbyname('codigo').asinteger := iNumero;
    query.post;
  end;
  query.next;
  inc( iNumero );
end;