[jzginez]

Hola a todos aunque desafortunadamente nadie a respondido y varios lo han leido lo cual interpreto como que tampoco le encuentran donde esta el error les comento que la solución que encontre fue dividir el procedimiento en tres procedimientos uno para cada if y estos los llamo desde delphi con esto ya esta funcionando bien.

Gracias