Copiando archivos

[dabas]

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.