delphi中procedure跟function组合使用的问题

Question

我看到别人的代码里有如下结构的语句：procedure Tform1.button1click(sender:TObject);
  function add(str:string):string;
    begin
    end;
var i:integer;
begin
end;请问大侠们，这是什么结构，这种结构的目的或者优点是什么？

Answer 1

局部function,只能被button1click中调用

Answer 2

内部函数，使add函数仅在button1click中有效！

Answer 3

那为什么还要写function，不可以直接在procedure中实现吗？
一个局部变量，被重载的可能性应该不大了吧
麻烦帮忙解答一下，谢谢!