Fórum Pedidos com mesmo COdigo #412608

Uso esta rotina pra pegar o numero do pedido e as vezes 2 vendedores pegam o mesmo codigo .
Alguma solução...

y := 0;
While y < 60 do
begin
if y = 5 then
begin
vQuerySql.Close;
ShowMessage(Não foi possível concluir a Inclusão. + chr(13) + Tente Novamente);
LiberarBtn;
exit;
end;
try
DM.TB_Contadores.Open;
if not DM.TB_Contadores.FindKey([1]) then
begin
ShowMessage(Erro no Contador);
exit;
end;
vContador := DM.TB_Contadores.FieldByName(vCampoChave1).asInteger;
DM.TB_Contadores.Edit;
DM.TB_Contadores.FieldByName(vCampoChave1).asInteger :=
DM.TB_Contadores.FieldByName(vCampoChave1).asInteger+1;
DM.TB_Contadores.Post;
DM.TB_Contadores.Close;
//
VQuerySql.Close;
vQuerySql.ParamByName(vCampoChave1).asString := IntToStr(vContador);
vQuerySql.Open;
if vQuerySql.IsEmpty then
begin
vQuerySql.Append;
break;
end;
except
Inc(y);
DM.TB_Contadores.Close;
Continue;
end;
//
Inc(y);
end;
vQuerySql.FieldByName(vCampoChave1).asString := IntToStr(vContador);