TFoo = record
    ...
    function Bar(): Integer;
    ...
  end;