SoloCodigo

Hola, tengo el siguiente código:
const AnsiString DataBaseFileName = "\socis.abs";
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ABSDatabase1->DatabaseFileName = ExtractFilePath(Application->ExeName) + DataBaseFileName;
ABSDatabase1->Open();
ABSQuery1->Close();
ABSQuery1->Open();
}
En el ordenador donde programo funciona bien pero en otro me dice que no encuentra la base de datos y en teoría está dentro del directorio del programa pero no hay manera.
Alguna sugerencia gracias.

Nada, sigue fallando.