diff --git a/ide/cleandirdlg.pas b/ide/cleandirdlg.pas
index 5cef0fa689..ba9df067ec 100644
--- a/ide/cleandirdlg.pas
+++ b/ide/cleandirdlg.pas
@@ -101,6 +101,25 @@ begin
   CleanDirectoryDialog.Free;
 end;
 
+function AddComboTextToRecentList(cb: TCombobox; aMax: integer;
+  ListType: TRecentListType): boolean;
+var
+  List: TStringList;
+begin
+  List:=TStringList.Create;
+  try
+    List.Assign(cb.Items);
+    Result:=AddToRecentList(cb.Text,List,aMax,ListType);
+    if Result then
+    begin
+      cb.Items.Assign(List);
+      cb.ItemIndex:=0;
+    end;
+  finally
+    List.Free;
+  end;
+end;
+
 { TCleanDirectoryDialog }
 
 procedure TCleanDirectoryDialog.OkButtonClick(Sender: TObject);
diff --git a/ide/packages/ideconfig/recentlistprocs.pas b/ide/packages/ideconfig/recentlistprocs.pas
index ffc8388c5a..4cf543a959 100644
--- a/ide/packages/ideconfig/recentlistprocs.pas
+++ b/ide/packages/ideconfig/recentlistprocs.pas
@@ -33,8 +33,6 @@ procedure SaveRecentList(XMLConfig: TXMLConfig; List: TStrings;
                          const Path: string; aMax: Integer); overload;
 function AddToRecentList(const s: string; List: TStrings; aMax: integer;
                          ListType: TRecentListType): boolean;
-function AddComboTextToRecentList(cb: TComboBox; aMax: integer;
-                                  ListType: TRecentListType): boolean;
 procedure RemoveFromRecentList(const s: string; List: TStrings;
                                ListType: TRecentListType);
 procedure CleanUpRecentList(List: TStrings; ListType: TRecentListType);
@@ -112,25 +110,6 @@ begin
       List.Delete(List.Count-1);
 end;
 
-function AddComboTextToRecentList(cb: TCombobox; aMax: integer;
-  ListType: TRecentListType): boolean;
-var
-  List: TStringList;
-begin
-  List:=TStringList.Create;
-  try
-    List.Assign(cb.Items);
-    Result:=AddToRecentList(cb.Text,List,aMax,ListType);
-    if Result then
-    begin
-      cb.Items.Assign(List);
-      cb.ItemIndex:=0;
-    end;
-  finally
-    List.Free;
-  end;
-end;
-
 procedure RemoveFromRecentList(const s: string; List: TStrings;
   ListType: TRecentListType);
 var