안녕하세요 어린 프로그래머 찌게다시입니다.
현재 실행중인 어플리케이션의 경로는
TApplication객체를 주로 사용합니다.

ExtractFilePath(Application.EXEName)이렇게 하게 되면 현재 실행중인

어플리케이션의 경로 명이 되겠지요..

만약 만약 어플리케이션이 있는 디렉토리에 상택.MDB가 있다고 한다면

var
  FileNamke : string;
begin

[A  //중략;
  FileName :=  ExtractFilePath(Application.EXEName) + '상택.MDB';
  //중략
end;

그럼 존 코딩하세요...

                                  어린프로그래머  ---찌께다시---