Hola Juanjo ,

Un par de cosas antes por simplificar tu código:

if (UserSetup.Get(UserID) = true) then begin

Pueds hacer esto:

if UserSetup.Get(UserID)  then begin

no necesitas poner = true

y lo que seguramente te este fallando es que si ejecutas runmodal el sistema se queda esperando a que el usuario interactúe , por eso el sistema para la transación , prueba usando  Comprobar.run.

Un saludo Óscar.