Программирование Delphi

Эта функция проверяет, существует ли указанный файл.

Функция FileExists возвращает значение True, если указанный в переменной sFileName файл существует и False, если такового файла нет по указанному пути.

var txtFile : string;

txtFile := 'c:\My Documents\test.txt'

if not FileExists(txtFile) then begin
 ShowMessage('TXT файл ' + #13#10 +
              txtFile + #13#10 + 'не существует!');
 exit;
end;