Al cabiar de unidad se da error la conexion

[Antuan]

Como puedo poner la equivalencia?
DatabaseName := 'E:\Ejemplo';
Si lo hago asi
DatabaseName := ExtractFilePath(ParamStr(0)) +'Clientes.dbf'

Se detiene en Datasource1.Dataset := Table1;

DatabaseName := 'E:\Ejemplo';
Name := 'Table1';
TableName :='Clientes.dbf';
Active := True;
Datasource1.Dataset := Table1; // Aqui se detiene