Ersetzen funzt net

[glkgereon]

ich will in der Datei FileName alle vorkommen von Old durch New ersetzen.
dazu will ich auch TMemoBuf zurückgreifen.

doch irgendwie wird der text zwar korrekt ersetzt, aber an die datei angehängt.

wo ist der fehler?

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.Add(Buf.Text);
  Buf.Free;
  DeleteFile(FileName);
  Temp.SaveToFile(FileName);
  Temp.Free;