Parar um programa

Boa Tarde sou iniciante ainda em Delphi fiz um programa para fazer calculo aqui da area de um riangulo, e fiz uma consistencia para ele nao aceitar Numeros negativo ou letras e , e etc , eu colokei dentro do Evento BotãoVar ladoab, ladobc,ladoac: integer;begin ladoab:= 0; ladobc:= 0; ladoac:= 0; try ladoab := strtoint(txtab.text); ladobc := strtoint(txtbc.Text); ladoac := strtoint(txtac.Text); If (ladoab) or (ladobc) or (ladoac) <= 0 then begin showMessage('numero negativo ou igual a Zero...'); txtab.setfocus; exit; end except showMessage('você deve digitar um numero...'); txtab.setfocus; exit; end;e Logo apos ele faria o calculo se numero fossem todos positivos, porem mesmo assim ele continua com calculo gostaria de saber se AH algum comendo que para a execução do programa ou fexa o mesmo, ja jguei ate uma procedure isso tudo e nda Adiantou, agradeço