[ddv122]

Код:

if(!FileExists("spisok.txt"))
  {
    List1->Add(spisok->Memo1->Text);
    List1->SaveToFile("spisok.txt");
  }

Так я проверяю наличие файла
Как мне исключить пустые строчки?

Memo1->Lines->Text=Trim(Memo1->Lines->Text);
Уберает пустые строки с memo. но если файл изменен руками....