StringReplace funktioniert nicht

[b1zZ]

Delphi-Quellcode:

EDatei := TStringList.Create;
For i := 0 to ListFilesPath.Count-1 do
begin
  EDatei.LoadFromFile(ListFilesPath.Strings[i]);
  If EDatei.Count >= 1 then
  begin
    EDatei.Text := StringReplace(EDatei.Text, Suchen, Ersetzen, [rfReplaceAll, rfIgnoreCase]);
    ShowMessage(EDatei.Text); // StringReplace funktioniert?
  end;
  EDatei.SaveToFile(ListFilesPath.Strings[i]);
  ShowMessage('Datei1("'+ListFiles.Items.Strings[i]+'") Ersetzt.');
end;
EDatei.Free;

Hi,
kannst du mal diesen ganz leicht abgeänderten Code nehmen und schauen, ob StringReplace funktioniert hat. Ich habe EDatei.Text verwendet, da du dir das Zeilenweise durchlaufen sparen kannst. Ich hatte vor geraumer Zeit ein ähnliches Problem, bei mir kam der Fehler beim Speichern auf, da die Datei exclusiv geöffnet war.