深入方法（19）- 过程中的方法

//Delphi 支持过程中的方法
procedure TForm1.Button1Click(Sender: TObject);
  procedure alert(s: string);
  begin
    ShowMessage(s);
  end;
begin
  alert('万一'); {万一}
end;