I find this trick to identify 'T' Type in a delphi generic and select the appropriate code. I create a "dummy" parameter to identify the type of T...

I find this trick to identify 'T' Type in a delphi generic and select the appropriate code. I create a "dummy" parameter to identify the type of T... 

type
  Type2Type = class
  type
    OriginalType = T;
  end;

  TFoo = class
    class procedure WriteLn(Dummy:Type2Type);overload;static;inline;
    class procedure WriteLn(Dummy:Type2Type);overload;static;inline;
    class procedure WriteLn(Dummy:Type2Type);overload;static;inline;
  private
    class procedure Bar;
  end;

{ TFoo }

class procedure TFoo.Bar;
begin
  WriteLn(Type2Type(nil));
end;

class procedure TFoo.WriteLn(Dummy: Type2Type);
begin
  ShowMessage('int');
end;

class procedure TFoo.WriteLn(Dummy: Type2Type);
begin
  ShowMessage('string');
end;

class procedure TFoo.WriteLn(Dummy: Type2Type);
begin
  ShowMessage('Unknown');
end;

Example :

procedure TForm1.Button1Click(Sender: TObject);
begin
  TFoo.Bar;      //ShowMessage('int'); 
//  TFoo.Bar;
end;

What do you think ?
Now I search to identify if T inherit from TObject...