Zum einen erst mal zu deinem neuen Code: Du hast
Delphi-Quellcode:
MyListing := TStringlist.Create;
try
finally
MyListing.Free; // Das hier ist wichtig
end;
vergessen.
Zum anderen: Das bleibt natürlich dir überlassen. Entweder kannst du bei If FileExists() ja dann ein DeleteFile() einbauen oder du gibts der Datei einen neuen Namen mit RenameFile()