use strict;
use warnings;

my $s = <<ENDSTRING;
  TFoo = record
    ...
    no functions here
    ...
  end;
  TFoo = record
    ...
    function Bar(): Integer;
    ...
  end;
  TFoo = record
    ...
    no functions here
    append;
    ...
  end;
  TFoo = record
    ...
    function Bar(): Integer;
    append;
    function Foo(): Integer;
    ...
  end;
  TFoo = record
    ...
    no functions here
    ...
  end;
ENDSTRING

print "$_\n" for $s =~ m/(\brecord\b([^e]*?|\Be|\be(?!nd\s*;))*?\bfunction\s+\w+\(\).*?\bend\s*;)/msg;