Проверка существования файла

  В этой статье мы узнаем как проверить существование файла.
В FormCreate или Button1Click пишем код проверки файла на существование:

procedure TForm1.FormCreate(Sender: TObject);
begin
	if FileExists(extractfilepath(application.ExeName)+'file.txt') then //Проверка
begin
	ShowMessage('Файл существует!'); //выводим сообщение, что файл существует
end
else
	ShowMessage('Файл не существует!'); //выводим сообщение, что файл не существует
end;

Вот и всё, Удачи!