``` delphi TGenericsCast < T, TT >= class(TObject) /// <summary> Cast T type to TT type . /// </summary> class function Cast(const T: T): TT; end; ``` https://code.google.com/p/delphi-detours-library/source/browse/trunk/GenericsCast.pas