1.
TStringlist *txt=new TStringList;
txt->LoadFromFile("c:\\text.txt");
txt->Add("YourData"); //新寫入的資料.
txt->SaveToFile("c:\\text.txt");
delete txt;    2.
TStringlist *txt=new TStringList;
txt->LoadFromFile("c:\\text.txt");
for (int i=0;iCount;i  )
    Memo1->Lines->Add(txt->Strings[i]);
delete txt;