[roman]

Algo como:

Código SQL [-]
update clientes
set ruteo = ruteo + 1
where ruteo >= :ruteo

Código Delphi [-]
Query.ParamByName('ruteo').AsInteger := 2;
Query.ExecSQL;

Con esto dejas el "hueco" listo para insertar a 'adrian'.

// Saludos