diff --git a/components/codetools/laz_xmlcfg.pas b/components/codetools/laz_xmlcfg.pas
index ef7881c9d8..043830131e 100644
--- a/components/codetools/laz_xmlcfg.pas
+++ b/components/codetools/laz_xmlcfg.pas
@@ -209,7 +209,8 @@ end;
 
 procedure TXMLConfig.SetFilename(const AFilename: String);
 var
-  f: File;
+  MemStream: TMemoryStream;
+  ok: boolean;
   cfg: TDOMElement;
 begin
   {$IFDEF MEM_CHECK}CheckHeapWrtMemCnt('TXMLConfig.SetFilename A '+AFilename);{$ENDIF}
@@ -225,18 +226,20 @@ begin
     doc.Free;
   end;
 
-  AssignFile(f, AFileName);
-  {$I-}
-  Reset(f, 1);
-  {$I+}
-  if IOResult = 0 then
+  doc:=nil;
+  MemStream:=TMemoryStream.Create;
+  try
     try
-      {$IFDEF MEM_CHECK}CheckHeapWrtMemCnt('TXMLConfig.SetFilename B');{$ENDIF}
-      ReadXMLFile(doc, f);
-      {$IFDEF MEM_CHECK}CheckHeapWrtMemCnt('TXMLConfig.SetFilename C');{$ENDIF}
-    finally
-      CloseFile(f);
+      ok:=false;
+      MemStream.LoadFromFile(AFilename);
+      ok:=true;
+    except
     end;
+    if ok then
+      ReadXMLFile(doc,MemStream);
+  finally
+    MemStream.Free;
+  end;
 
   if not Assigned(doc) then
     doc := TXMLDocument.Create;
@@ -253,6 +256,9 @@ end;
 end.
 {
   $Log$
+  Revision 1.4  2002/09/20 09:27:47  lazarus
+  MG: accelerated xml
+
   Revision 1.3  2002/09/13 16:58:27  lazarus
   MG: removed the 1x1 bitmap from TBitBtn
 
diff --git a/components/codetools/laz_xmlwrite.pas b/components/codetools/laz_xmlwrite.pas
index 832bb2072b..a9a539e7de 100644
--- a/components/codetools/laz_xmlwrite.pas
+++ b/components/codetools/laz_xmlwrite.pas
@@ -124,13 +124,13 @@ begin
   stream.WriteByte(10);
 end;
 
-procedure wrtStr(s: string);
+procedure wrtStr(const s: string);
 begin
   if s<>'' then
     wrt(s[1],length(s));
 end;
 
-procedure wrtStrLn(s: string);
+procedure wrtStrLn(const s: string);
 begin
   if s<>'' then
     wrtln(s[1],length(s));
@@ -479,6 +479,9 @@ end.
 
 {
   $Log$
+  Revision 1.4  2002/09/20 09:27:47  lazarus
+  MG: accelerated xml
+
   Revision 1.3  2002/08/04 07:44:44  lazarus
   MG: fixed xml reading writing of special chars