type
  
  {$region t1}
  
  t1 = class 
    {$region t2}
    procedure Test;
    {$endregion}
  end;

  {$endregion}

begin
end.