Copie el código de código de la siguiente manera:
//Determinar si el archivo se está utilizando
función FileINUse(nombre de archivo:Cadena):booleano;
var
uso en: archivo;
comenzar
resultado:=falso;
asignar archivo (usar en, nombre de archivo);
intentar
restablecer(Usar);
excepto
en E:EInOutError hacer
comenzar
si e.ErrorCode=32 entonces
comenzar
resultado:=verdadero;
salida;
fin;
fin;
fin;
cerrar archivo (usar en);
fin;
procedimiento TForm1.Button1Click (Remitente: TObject);
si OpenDialog1.Execute entonces
comenzar
si fileInuse (OpenDialog1.filename) entonces
ShowMessage('El archivo está en uso')
demás
ShowMessage('no usado');
fin;