diff --git a/rtl/inc/objpas.inc b/rtl/inc/objpas.inc
index 07eeaab663..d7c4b8b883 100644
--- a/rtl/inc/objpas.inc
+++ b/rtl/inc/objpas.inc
@@ -973,6 +973,17 @@
             result:='';
         end;
 
+      class function TObject.QualifiedClassName: ansistring;
+        var
+          uname: ansistring;
+        begin
+          uname := UnitName; //TODO: change 'UnitName' to 'UnitScope' as soon as RTL implement it
+          if uname='' then
+            result:=ClassName
+          else
+            result:=Concat(uname, '.', ClassName);
+        end;
+
       function TObject.Equals(Obj: TObject) : boolean;
         begin
           result:=Obj=Self;
diff --git a/rtl/inc/objpash.inc b/rtl/inc/objpash.inc
index dad397f9ec..e7327442b2 100644
--- a/rtl/inc/objpash.inc
+++ b/rtl/inc/objpash.inc
@@ -249,6 +249,7 @@
 
           { new since Delphi 2009 }
           class function UnitName : ansistring;
+          class function QualifiedClassName: ansistring;
           function Equals(Obj: TObject) : boolean;virtual;
           function GetHashCode: PtrInt;virtual;
           function ToString: ansistring;virtual;