如何动态生成一个文件，并将信息写入文件中

Question

var sFile: String;
    tFile: TextFile;sFile := 'C:\123.txt';
AssignFile(tFile,sFile);
if FileExists(sFile) then
  Append(tFile)
else
  ReWrite(tFile);WriteLn(tFile,'1234545665');
...........................
WriteLn(tFile,'9876543210');
CloseFile(tFile);

Answer 1

var test:textfile;
begin
 AssignFile(test,filename);]
 rewrite(test);
 writeln(test,'test');
 closefile(test);
end;

Answer 2

uses Dialogs;
var  f : file;
begin
  OpenDialog1.Title := 'Choose a file... ';
  if OpenDialog1.Execute then 
  begin
    SaveDialog1.Title := 'Rename to...';
    if SaveDialog1.Execute then 
    begin 
      AssignFile(f, OpenDialog1.FileName);
      Canvas.TextOut(5, 10, 'Renaming ' + OpenDialog1.FileName + 
                     ' to ' + SaveDialog1.FileName);
      Rename(f, SaveDialog1.FileName);
    end;
  end;end;