Ich kenne mich mit Pascal-Syntax nicht aus, aber Deine Regex würde auch

matchen, wo function bar() zwischen zwei Records steht (oder zwischen einem Record und einem anderen Block, der "end;" enthält.)

Grundsätzlich rate ich dazu, in solchen Fällen die Keywörter in der Regex mit \b abzugrenzen, weil sonst das /end;/ auch "append;" matched. Aber das würde hier wohl nicht ausreichen.