Delphi 函数嵌套 定义与调用

procedure TForm1.btn1Click(Sender: TObject);
var
   str:string;
procedure test();
begin
  ShowMessage(str);
end;
begin
  str:='hello world';
  test();
end;