[lucasarts_18]

Hola:

Adaptando el código de marcoszorrilla, podemos comprobar que ese fichero exista realmente, que es otro asunto que pide velia:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
 
   archivo : String;
 begin
   archivo := 'acceso.txt';
   opendialog1.FileName := archivo;
   opendialog1.Filter := 'Mis_Zips (*.txt)|Acc.txt';
 
   if opendialog1.Execute then
     if not fileexists('acc.txt') then
       showmessage('no existe');
 end;

Espero que te sirva