有没有办法在DelphiInterface上实现dynamic_cast来获取底层对象类？

var
  obj: TObject;
begin
  obj := GetSomeObject(); // 获取一个对象

  if obj is TMyClass then
  begin
    // 对象是TMyClass或其派生类的实例
    // 可以进行相应的操作
  end
  else if obj is TAnotherClass then
  begin
    // 对象是TAnotherClass或其派生类的实例
    // 可以进行相应的操作
  end
  else
  begin
    // 对象不是任何已知类的实例
    // 可以进行相应的处理
  end;
end;

var
  obj: TObject;
  myObj: TMyClass;
begin
  obj := GetSomeObject(); // 获取一个对象

  myObj := obj as TMyClass; // 将对象转换为TMyClass类型

  if Assigned(myObj) then
  begin
    // 转换成功，myObj是TMyClass类型的对象
    // 可以进行相应的操作
  end
  else
  begin
    // 转换失败，obj不是TMyClass类型的对象
    // 可以进行相应的处理
  end;
end;