diff --git a/rtl/inc/objpas.inc b/rtl/inc/objpas.inc
index 54579f6fd5..cf61ecb77b 100644
--- a/rtl/inc/objpas.inc
+++ b/rtl/inc/objpas.inc
@@ -1067,13 +1067,13 @@
            end;
       end;
 
-   destructor TInterfacedObject.destroy;
+   destructor TInterfacedObject.Destroy;
 
    begin
      // We must explicitly reset. Bug ID 32353
      FRefCount:=0;
      FDestroyCount:=0;
-     inherited destroy;
+     inherited Destroy;
    end;
 
     procedure TInterfacedObject.AfterConstruction;
diff --git a/rtl/inc/objpash.inc b/rtl/inc/objpash.inc
index 751437b170..b7670c7c28 100644
--- a/rtl/inc/objpash.inc
+++ b/rtl/inc/objpash.inc
@@ -298,18 +298,18 @@
 
        TInterfacedObject = class(TObject,IUnknown)
        protected
-          frefcount : longint;
+          FRefCount : longint;
           FDestroyCount : longint;
           { implement methods of IUnknown }
           function QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} iid : tguid;out obj) : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
           function _AddRef : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
           function _Release : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
         public
-          destructor destroy; override;
+          destructor Destroy; override;
           procedure AfterConstruction;override;
           procedure BeforeDestruction;override;
           class function NewInstance : TObject;override;
-          property RefCount : longint read frefcount;
+          property RefCount : longint read FRefCount;
        end;
        TInterfacedClass = class of TInterfacedObject;