Oprava:
Exit vykonavanie procedury skutocne zastavi (nevsimol som si pred tym ze som bol este v inej procedure). Pri navrate z nej som si dal dalsiu podmienku na otestovanie v tvare
if podmienka je splnena then begin Application.Terminate; Exit; end;