Die Datei auswähleme Datei auswählen kannst du mit einem TOpenDialog. Umbenennen brauchst du sie eigentlich nicht.
Es sollte etwa so gehen:
Delphi-Quellcode:
AssignFile) tf, OpenDialog.FileName);
Reset (tf);
while not Eof(tf) do
begin
Stringlist.add (ReadLn( tf));
end;
CloseFile( tf);
Rewrite(tf);
Write( tf, 'User sagt');
Writeln( tf, Edit1.Text);
for i := 0 to StringList.Count-1 do
begin
WriteLn( tf, StringList.Strings[i]);
end;
CloseFile( tf);
Achtung: getippt und nicht getestet!