Código Reentry_Flow

Pessoal, por favor, tem alguém que possa dar uma olhada no meu código? Ele foi escrito em Pascal e compilado no Delphi 7. Por favor, tem alguém que possa olha-lo? Eu já olhei várias vezes para ele, mas não encontro o erro. Fico no aguardo, Edisson Sávio.