Hola
Sinceramente no le veo el problema, el sistema que usas es muy diferente de lo que hago, pero es entendible.
En este procedimiento haces una serie de pasos, creas una tabla, insertas y borras dependiendo de ciertas circunstancias, para mi usando demasiados if, pero abria que saber lo que haces en si.
En mi humilde opinion el problema podria estar aqui, dependiendo del tamaño de la tabla:
Código Delphi
[-]
IF( (:Finqui='N')AND(Contador=0) )THEN
BEGIN
SELECT COUNT(*) AS TOTAL
FROM CONTRATOS_DE_ARRIENDO
WHERE CODIGO_CONTRATO =:Contrato
AND Codigo_Maquina =:CODIGO_PARTICULAR
INTO :Contador;
El reto para mi lo que hace es una serie de pasos sin trasendencia, ya que insertar o modificar le llevaria a la base de datos segundos.
Me queda un poco incomodo entender a fondo el proceso que haces, como te digo, es muy diferente a lo que yo hago o haria.
Saludos