Ak to chceš krajšie, tak tú funkciu volaj a požaduj návratovú hodnotu. Ak budeš chcieť ukončiť aplikáciu, tak len nastav správne návratovú hodnotu a ukonči ju predčasne pomocou Exit; a vo funkcii, z ktorej túto funkciu voláš otestuj návratovú hodnotu a jednoducho pošleš aplikáciu odkiaľ prišla. V Pascale nie je pekné používať goto. To je len vírus, ktorý sa šíri z prvých verzií BASICu. Správny programátor nikdy v aplikácii nepoužíje goto.

Edit: Ja som na predčasné ukončenie funkcií používal Abort;, ale len do tej chvíle, kým nezačal Delphi 7 protestovať (Delphi 6 v pohode). Jan Fiala ma ohľadne toho poučil, takže to riešim buď návratovými hodnotami alebo inak, ale nikdy nie goto alebo Abort;.