readbuffer problem ('verzweifle')

[poltergeistx]

so, also ich wollt grad mal fragen, ob das so richtig iss , denn es geht nämlich irgendwie nicht ...

Delphi-Quellcode:

procedure BIB_FileReplaceString(FileName, searchstring, replacestring: string); 
var 
  fs: TFileStream; 
  S: string; 
begin 
   // Erstellen der Variablen für die Datei 
   fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone); 
   try 
      SetLength(S, fs.Size); 
      fs.ReadBuffer(S[1], fs.Size); 
   finally 
      fs.Free; 
   end; 

   // Ersetzen des Textes 
   S  := StringReplace(S, SearchString, replaceString, [rfIgnoreCase]); 
   fs := TFileStream.Create(FileName, fmCreate); 
   try 
      fs.WriteBuffer(S[1], Length(S)); 
   finally 
      fs.Free; 
   end; 
end;

[edit=Luckie]Sprache korrigiert. Mfg, Luckie[/edit]