Copie o código do código da seguinte forma:
//Determina se o arquivo está sendo usado
função FileINUse(nome do arquivo:String):boolean;
var
usar em: arquivo;
começar
resultado:=falso;
atribuirarquivo(usein,NomeArquivo);
tentar
redefinir(Usar);
exceto
em E:EInOutError faça
começar
se e.ErrorCode=32 então
começar
resultado:=verdadeiro;
saída;
fim;
fim;
fim;
fechar arquivo(usein);
fim;
procedimento TForm1.Button1Click(Remetente: TObject);
se OpenDialog1.Execute então
começar
se fileInuse(OpenDialog1.filename) então
ShowMessage('Arquivo em uso')
outro
ShowMessage('não usado');
fim;