Delphi 折叠代码编译变量$REGION

编译变量$REGION，用于在delphi2006以后版本的折叠代码显示，非常方便。

procedure TForm1.Button1Click(Sender: TObject);
var
  uStr: UnicodeString;
begin
{$REGION '显示uStr变量内容'}
  uStr := 'ok';
  ShowMessage(uStr);
{$ENDREGION}
end;