Yo lo que sé, es que si creas una variable para ese archivo usando
Var archivo:File;
...
AssignFile(archivo, 'nombre archivo');
{$I-}
Reset(archivo);
{$I+}
If IoResult=0 then ShowMessage('El archivo existe');
Verificas si el archivo ya existe.
Pero desconozco si existe algun metodo mas efectivo.
|