Ersetzen funzt net

[Wuaegner]

Delphi-Quellcode:

Buf:=TMemoBuf.Create; 
  Temp:=TStringList.Create; 
  Temp.Clear; 
  Buf.Text:=''; 
  Temp.LoadFromFile(FileName); 
  Buf.Text:=Temp.Text; 
  Buf.ReplaceAll(Old,New,False); 
  Temp.Clear; <======== das muss hier noch rein 
  Temp.Add(Buf.Text); 
  Buf.Free; 
  DeleteFile(FileName); 
  Temp.SaveToFile(FileName); 
  Temp.Free;

ungetestet aber rein logisch denke ich muss es rein