问个语法问题

Question

小弟delphi自学的，语法粗略看了下。
发现以下代码貌似有些印象，可是不知道哪里见过，各位懂得麻烦解释下这么写的作用。3Qprocedure Tfrm_main.monuClick(Sender: TObject);
 procedure showform(fc:TFormClass);
 begin
  XXXXXXXXXX
 end;
var
  s:string;
begin
XXXXXXXXXXXXXXXXXXX
end;也就是过程中嵌入一个过程，有什么作用呢？

Answer 1

Tfrm_main.monuClick可以调用showform