Создать файл, указав его содержимое в коде программы.

int f;
f = FileOpen("C:\\Sez.txt",fmOpenRead);
else
f = FileCreate("C:\\Tema1.txt");

f->Add(AnsiString(Now()) + "text text");

TStringList *list = new TSringList;
list->Add("Строка");
list->Add("Строка");
list->Add("Строка");
list->Add("Строка");
list->Add("Строка");
list->SaveToFile("Строка");
Memo1->Lines->LoadFromFile("Строка");

TStringList *list = new TSringList;
if (FileExists("C:\\Sez.txt") )
{
f = FileOpen("C:\\Sez.txt",fmOpenRead);
}
else
{
f = FileCreate("C:\\Sez.txt");
list->Add("Зима");
list->Add("Весна");
list->Add("Лето");
list->Add("Осень");
list->SaveToFile(f);
Memo1->Lines->LoadFromFile(f);
}

TStringList *list = new TSringList;
if (FileExists("C:\\Sez.txt") )
{
 list->LoadFromFile("C:\\Sez.txt");
}
else
{
 list->Add("Зима");
 list->Add("Весна");
 list->Add("Лето");
 list->Add("Осень");
 list->SaveToFile("C:\\Sez.txt");
}
Memo1->Lines->LoadFromFile("C:\\Sez.txt"); // А тут надо еще не забыть компонент Memo вынести на форму

TStringList *list = new TSringList;

Unit1.cpp(74): E2303 Type name expected
Unit1.cpp(74): E2034 Cannot convert 'int *' to 'TStringList *'
Unit1.cpp(74): E2141 Declaration syntax error