$REGION funktioniert nicht bei [Attributen]

[t2000]

Hallo Uwe,

erweiter mal bitte den Code um eine geschaltelte Region.
Dann funktioniert es nicht mehr (nicht mehr korrekt)

Hier als Beispiel:

Delphi-Quellcode:

type
  asyncAttrribute = class(TCustomAttribute);
  TSuccessProc = procedure;

procedure DoSomething;
begin

end;

procedure MachWas(proc: TSuccessProc);
begin

end;

{$REGION 'Alles'}

{$REGION 'Eine Funktion'}
function EineFunktion: String;
var
  xy: Integer;

  [async] procedure Success;
  begin
    DoSomething;
  end;

begin
  MachWas( TSuccessProc( @Success));
end;
{$ENDREGION}

procedure DoSomething2;
begin

end;

procedure MachWas2(proc: TSuccessProc);
begin

end;
{$ENDREGION}