procedure TForm1.Button1Click(Sender: TObject);

var

vdate : String; vdata : TStringList;

begin

vdata := TStringList.Create ;
vdata.Text := vdate;
vdata.SaveToFile ('test.txt');
vdata.Free ;

end;

こんな感じでとりあえず保存だけやり方がわかったのですが追加書き込みはどうやるのでしょうか？
新しい日付が最初にこなくてもいいのでファイルもう一度ボタンを押すと
次の行に追加されるようにしたいのですが調べても詳しく分からなかったので
例みたいなものを教えていただけないでしょうか