[Coco_jac]

HOLA AMIGOS GRACIAS POR RESPONDER Y DAR SUS CONSEJOS ENTONCES QUEDARIA ASI, LO PROBARE DE INMEDIATO Y LES CUENTO QUE PASO, GRACIAS POR EL APOYO.

 
 
CONST 
MTSession = 'Metusa';
DirectorioBD = 'F:\Aspelnew\sae30\S-METUSA';
DirectorioNET = DirectorioBD + '\NET';
DirectorioPrivado = 'c:\temp';
 
With MetusaSesion do begin	 
NetFileDir := DirectorioNET;
PrivateDir := DirectorioPrivado;
End;
 
MetusaSesion.sessionName:=MTSession; //defino una session
 
With MetusaDataBase do 
begin 
Params.Clear;
Params.Add('PATH='+DirectorioBD);
Params.Add('DEFAULT DRIVER=PARADOX');
Params.Add('ENABLE BCD=FALSE');
DatabaseName:='MetusaStock';
Connected := true;
End;
 
SQLquery.sessionName:=MTSession; 
SQLquery.databasename:=MetusaDataBase.DataBaseName;