Aktif veritabanı Dosyasını Bulma

procedure TForm1.Button9Click(Sender: TObject);
var
aktifdosya,fileSKod:
begin
ShowMessage('aktif dosyayı bulman lazım kaynak hatası');
ShowMessage(data.ADOConnectMet.ConnectionString);
ShowMessage(data.ADOConnectMet.ClassName);
ShowMessage(Data.ADOConnectMet.GetNamePath);

aktifdosya:=????; // aktif dosyayı bulamıyorum burda yardım ederseniz sorunum çözülür te?ekkürler.
fileSource := ExtractFilePath(Application.ExeName)+aktifdosya;
fileDest := ExtractFilePath(Application.ExeName)+data.ADOBinaD osyaSave.Value+'.mdb';
CopyFile(PChar(fileSource), PChar(fileDest), False);
ource, fileDest: string;