diff --git a/ideintf/propedits.pp b/ideintf/propedits.pp
index 4612fa6405..77e4dd4e8e 100644
--- a/ideintf/propedits.pp
+++ b/ideintf/propedits.pp
@@ -47,7 +47,7 @@ const
 type
 
   TPersistentSelectionList = PropEditUtils.TPersistentSelectionList;
-  TGetStringProc = PropEditUtils.TGetStringProc;
+  TGetStringProc = Classes.TGetStrProc;
 
 { TPropertyEditor
   Edits a property of a component, or list of components, selected into the
diff --git a/ideintf/propeditutils.pp b/ideintf/propeditutils.pp
index f91d270ca8..3b677e85ac 100644
--- a/ideintf/propeditutils.pp
+++ b/ideintf/propeditutils.pp
@@ -20,8 +20,6 @@ uses
   Classes, LCLProc, SysUtils, TypInfo;
 
 type
-  TGetStringProc = procedure(const s:ansistring) of object;
-
   {
     The TPersistentSelectionList is simply a list of TPersistent references.
     It will never create or free any object. It is used by the property