{ %NORUN } program tw40410; {$mode delphi} procedure _Test0(const AParam: T); begin end; procedure _Test(const AValue1, AValue2: T); begin try _Test0(AValue1); except _Test0(AValue2); end; end; begin end.