diff --git a/components/ideintf/selectdatasetdlg.lfm b/components/ideintf/selectdatasetdlg.lfm
index 54cdf4787e..74c7e5d75a 100644
--- a/components/ideintf/selectdatasetdlg.lfm
+++ b/components/ideintf/selectdatasetdlg.lfm
@@ -1,4 +1,4 @@
-object SelectDatasetForm: TSelectDatasetForm
+object SelectOtherDatasetForCopyForm: TSelectOtherDatasetForCopyForm
   Left = 527
   Height = 244
   Top = 310
diff --git a/components/ideintf/selectdatasetdlg.pas b/components/ideintf/selectdatasetdlg.pas
index e8121c538c..aaae763215 100644
--- a/components/ideintf/selectdatasetdlg.pas
+++ b/components/ideintf/selectdatasetdlg.pas
@@ -9,9 +9,9 @@ uses
 
 type
 
-  { TSelectDatasetForm }
+  { TSelectOtherDatasetForCopyForm }
 
-  TSelectDatasetForm = class(TForm)
+  TSelectOtherDatasetForCopyForm = class(TForm)
     BPDatasets: TButtonPanel;
     lblCaption: TLabel;
     lbDatasets: TListBox;
@@ -28,7 +28,7 @@ type
 Function SelectDataset(aList : TStrings; aTitle : String = '') : String;
 
 var
-  SelectDatasetForm: TSelectDatasetForm;
+  SelectOtherDatasetForCopyForm: TSelectOtherDatasetForCopyForm;
 
 implementation
 
@@ -38,7 +38,7 @@ Function SelectDataset(aList : TStrings; aTitle : String = '') : String;
 
 begin
   Result:='';
-  With TSelectDatasetForm.Create(Application) do
+  With TSelectOtherDatasetForCopyForm.Create(Application) do
     try
       Datasets:=aList;
       if aTitle<>'' then
@@ -51,15 +51,15 @@ begin
 end;
 
 
-{ TSelectDatasetForm }
+{ TSelectOtherDatasetForCopyForm }
 
-function TSelectDatasetForm.GetDatasets: TStrings;
+function TSelectOtherDatasetForCopyForm.GetDatasets: TStrings;
 
 begin
   Result:=lbDatasets.Items;
 end;
 
-function TSelectDatasetForm.GetSelected: String;
+function TSelectOtherDatasetForCopyForm.GetSelected: String;
 
 begin
   With LbDatasets do
@@ -69,7 +69,7 @@ begin
       Result:=Items[ItemIndex];
 end;
 
-procedure TSelectDatasetForm.SetDatasets(AValue: TStrings);
+procedure TSelectOtherDatasetForCopyForm.SetDatasets(AValue: TStrings);
 
 begin
   lbDatasets.Items:=aValue;