Скопируйте код кода следующим образом:
//Определяем, используется ли файл
функция FileINUse (имя файла: String): логическое значение;
вар
использовать: файл;
начинать
результат: = ложь;
назначить файл (использование, имя файла);
пытаться
сброс (Использование);
кроме
на E:EInOutError сделать
начинать
если e.ErrorCode=32, то
начинать
результат:=истина;
Выход;
конец;
конец;
конец;
закрыть файл (использовать);
конец;
процедура TForm1.Button1Click(Отправитель: TObject);
если OpenDialog1.Execute, то
начинать
если fileInuse(OpenDialog1.имя_файла), то
ShowMessage('Файл используется')
еще
ShowMessage('не используется');
конец;