String을 Text파일로 저장하기

var
  txtFile : TextFile;  
  sFileName : string;
begin
  sFileName := '저장될 경로명' + '파일명';  //ex) sFileName := 'C:\' + 'text.txt';
  
  AssignFile(txtFile, sFileName);  
  
  try    
    if FileExists(sFileName) then //저장할 곳에 기존에 중복되는 파일이 있는지 검사합니다.      
      Append(txtFile)  //파일이 존재하면 해당 내용의 뒷쪽에 추가합니다.    
    else      
      Rewrite(txtFile); //기존의 내용을 덮어쓰거나 새로 작성합니다.
      
    Writeln(txtFile, '텍스트내용'); //텍스트의 내용을 저장합니다.
  finally    
    CloseFile(txtFile);  
  end;
end;

꼭 파일검사를 하지 않아도, 무조건 새로 쓸 것이면 Rewrite, 이어서 작성할 것이면 Append만 써도 상관없습니다.