загрузка файлов в delphi

[K[Lanc]N]

как реализовать что бы при загрузке файла в Мемо, с определенным названием закрывалась программа.

[XTenS]

проверяешь просто имя файла и его сравниваешь если имена схожи то Close

[K[Lanc]N]

можно пример кода как сравнить, не воспользовавшись опендиалог, ибо у меня они загружаться пассивно через Lines.LoadFromFile('Dialogues\1_1.d g') ?

[SERG1980]

Перед тем как загрузить в мемо можно сделать сравнение;

 if ExtactFileName('d:\Ляля\ляля\Имяфайла.txt') = 'Имяфайла.txt' then
 form1.Close
 else Memo1.Lines.LoadFormFile('d:\Ляля\ляля\Имяфайла.txt')