diff --git a/components/rtticontrols/examples/exampleproject1.lpi b/components/rtticontrols/examples/exampleproject1.lpi
index b6a531f524..f03c58dc75 100644
--- a/components/rtticontrols/examples/exampleproject1.lpi
+++ b/components/rtticontrols/examples/exampleproject1.lpi
@@ -9,7 +9,7 @@
         <SaveOnlyProjectUnits Value="True"/>
       </Flags>
       <MainUnit Value="0"/>
-      <ActiveEditorIndexAtStart Value="1"/>
+      <ActiveEditorIndexAtStart Value="2"/>
       <IconPath Value="./"/>
       <TargetFileExt Value=""/>
       <Title Value="exampleproject1"/>
diff --git a/ideintf/propedits.pp b/ideintf/propedits.pp
index 29c04fce44..97fcfb88bd 100644
--- a/ideintf/propedits.pp
+++ b/ideintf/propedits.pp
@@ -304,6 +304,7 @@ type
     function GetAttributes: TPropertyAttributes; virtual;
     function IsReadOnly: boolean; virtual;
     function GetPersistent(Index: Integer): TPersistent;
+    function GetComponent(Index: Integer): TComponent;// for Delphi compatibility
     function GetEditLimit: Integer; virtual;
     function GetName: shortstring; virtual;
     procedure GetProperties(Proc: TGetPropEditProc); virtual;
@@ -1910,6 +1911,11 @@ begin
   Result:=FPropList^[Index].Instance;
 end;
 
+function TPropertyEditor.GetComponent(Index: Integer): TComponent;
+begin
+  Result:=TComponent(FPropList^[Index].Instance);
+end;
+
 function TPropertyEditor.GetFloatValue:Extended;
 begin
   Result:=GetFloatValueAt(0);