Problema con transaccion en SQL server

[JuanchoArg]

Tengo un problema al correr una transaccion en SQL server desde una componente Adoquery. No me detecta el error si no es en la ultima linea sql que envio dentro de la transaccion. Incluso la transaccion inserta todas la lineas sin error aunque se haya provocado un error en una linea previa. Asi armo la transaccion

Código SQL [-]
 
Begin Tran
 
--sql1...
--sql2...
 
if @@error <> 0
rollback tran
Else
commit tran

Por lo que veo @@error solo detecta el error si se produce en la ultima linea, sino lo deja pasar y no hace el rollback tran. Como hago para que detecte errores en cualquier parte de la transaccion y pueda manejarlo con dentro de un

Código Delphi [-]
try except end

desde delphi. Cualquier tipo de ayuda se las agradeceria. Saludos.