#!/usr/bin/perl

use strict;
use warnings;

my $s = <<ENDSTRING;
  TFoo = record
    ...
    no functions here
    ...
  end;
  TFoo = record
    ...
    event01 here
    function Bar(): Integer;
    ...
  end;
  TFoo = record
    ...
    no functions here eventually
    event02 here
    no functions here
    ...
  end;
  TFoo = record
    ...
    function Bas(): Integer;
    event03 here
    ...
  end;
  TFoo = record
    ...
    no functions here
    ...
  end;
  TFoo = record
    ...
    event04 here
    function Bat(): Integer;
    event05 here
    ...
  end;
  TFoo = record
    ...
    no functions here
    ...
  end;
  TFoo = record
    ...
    function Bau(): Integer;
    ...
  end;
  TFoo = record
    ...
    no functions here
    ...
  end;
ENDSTRING

print for $s =~ m{ (record (?:[^e]|\we|\be(?!nd;))+? function \s+ \w+\(\) .+? end; \s*) }xmsg;