Delphi 摺疊代碼編譯變量$REGION

編譯變量$REGION，用於在delphi2006之後版本的摺疊代碼顯示，很是方便。

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