program Project1;{$mode delphi}uses {$IFDEF UNIX} cthreads, {$ENDIF} Classes { you can add units after this };procedure _Test0<T>(const AParam: T);beginend;procedure _Test<T>(const AValue1, AValue2: T);begin try _Test0<T>(AValue1); except _Test0<T>(AValue2); end;end;beginend.