TEXT 파일 제어

procedure TForm1.Button1Click(Sender: TObject);
var
  f1 : textfile;
begin
  assignfile(f1, 'Test.txt');
  if FileExists( 'Test.txt' ) then
    Append(f1)  // 파일 있으면 내용추가
  else
    Rewrite(f1); // 없으면 만들기
  Writeln(f1,'쓸내용1');
  closefile(f1);

end;