Pascal/Turbo Pascal - No logro hacer que el boolean salga del procedure cuando es TRUE

Filtrado por el usuario: dario
<<>>
Filtrado por el usuario 'dario' (Eliminar fitro)
 
Vista: