diff --git a/windows/src/engine/keyman/keyman.dpr b/windows/src/engine/keyman/keyman.dpr
index 32122540e5..1b40225ff8 100644
--- a/windows/src/engine/keyman/keyman.dpr
+++ b/windows/src/engine/keyman/keyman.dpr
@@ -67,7 +67,6 @@ uses
   Hints in '..\..\global\delphi\hints\Hints.pas',
   utilcheckfonts in '..\..\global\delphi\general\utilcheckfonts.pas',
   findfonts in '..\..\global\delphi\general\findfonts.pas',
-  WideStringClass in '..\..\global\delphi\general\WideStringClass.pas',
   utiluac in '..\..\global\delphi\general\utiluac.pas',
   VKeyChars in '..\..\global\delphi\general\VKeyChars.pas',
   usp10 in '..\..\..\..\common\windows\delphi\general\usp10.pas',
diff --git a/windows/src/engine/keyman/keyman.dproj b/windows/src/engine/keyman/keyman.dproj
index cabb69f3b8..59a2bf2559 100644
--- a/windows/src/engine/keyman/keyman.dproj
+++ b/windows/src/engine/keyman/keyman.dproj
@@ -183,7 +183,6 @@
         <DCCReference Include="..\..\global\delphi\hints\Hints.pas"/>
         <DCCReference Include="..\..\global\delphi\general\utilcheckfonts.pas"/>
         <DCCReference Include="..\..\global\delphi\general\findfonts.pas"/>
-        <DCCReference Include="..\..\global\delphi\general\WideStringClass.pas"/>
         <DCCReference Include="..\..\global\delphi\general\utiluac.pas"/>
         <DCCReference Include="..\..\global\delphi\general\VKeyChars.pas"/>
         <DCCReference Include="..\..\..\..\common\windows\delphi\general\usp10.pas"/>
diff --git a/windows/src/global/delphi/general/WideStringClass.pas b/windows/src/global/delphi/general/WideStringClass.pas
deleted file mode 100644
index 22434ef119..0000000000
--- a/windows/src/global/delphi/general/WideStringClass.pas
+++ /dev/null
@@ -1,37 +0,0 @@
-(*
-  Name:             WideStringClass
-  Copyright:        Copyright (C) SIL International.
-  Documentation:    
-  Description:      
-  Create Date:      27 Mar 2008
-
-  Modified Date:    27 Mar 2008
-  Authors:          mcdurdin
-  Related Files:    
-  Dependencies:     
-
-  Bugs:             
-  Todo:             
-  Notes:            
-  History:          27 Mar 2008 - mcdurdin - Initial version
-*)
-unit WideStringClass;
-
-interface
-
-type
-  TWideString = class
-    s:  string;
-    constructor Create(const fs: WideString);
-  end;
-  
-implementation
-
-{ TWideString }
-
-constructor TWideString.Create(const fs: WideString);
-begin
-  s := fs;
-end;
-
-end.