* undid part of r24885 that broke compilation

git-svn-id: branches/unicode@24921 -

rtl/inc/astrings.inc

@@ -1425,15 +1425,3 @@ procedure SetMultiByteRTLFileSystemCodePage(CodePage: TSystemCodePage);
     DefaultRTLFileSystemCodePage:=CodePage;
   end;
 
-
-procedure SetMultiByteFileSystemCodePage(CodePage: TSystemCodePage);
-  begin
-    DefaultFileSystemCodePage:=CodePage;
-  end;
-
-
-procedure SetMultiByteRTLFileSystemCodePage(CodePage: TSystemCodePage);
-  begin
-    DefaultRTLFileSystemCodePage:=CodePage;
-  end;
-