Delphi, InterBase, BackUp. Полный, относительный путь к файлу.

[Антон Лысенко]

Здравствуйте. Как решить проблему с указанием пути, создании BackUp'a? Когда я указываю полный путь, бэкап нормально создаётся. Но при относительно не хочет. Пишет ошибку что не может открыть базу. Что посоветуете?
Вот как я пишу:

procedure TForm_BackUp_Restore.BtnBackUpClick(Sender: TObject);
 var BackUpName:string;
begin
   BackUpName:=GetName;
   Memo1.Clear;
    IBBS.Active:=true;
    try
    IBBS.Verbose:= True;
    IBBS.DatabaseName:= 'G:\StrikeBall\BASE.GDB';
    IBBS.BackupFile.Clear;
    IBBS.BackupFile.Add('G:\StrikeBall\BackUP\'+BackUpName+'BASE.gdb');
    IBBS.ServiceStart;
    while not IBBS.Eof do
      Memo1.Lines.Add(IBBS.GetNextLine);
  finally
    IBBS.Active:= False;
  end;
  Memo1.Lines.SaveToFile('G:\StrikeBall\BackUP\' +BackUpName+ 'BASE.log');
end;

А вот как я хочу что бы было:

procedure TForm_BackUp_Restore.BtnBackUpClick(Sender: TObject);
 var BackUpName:string;
begin
   BackUpName:=GetName;
   Memo1.Clear;
    IBBS.Active:=true;
    try
    IBBS.Verbose:= True;
    IBBS.DatabaseName:= 'BASE.GDB';
    IBBS.BackupFile.Clear;
    IBBS.BackupFile.Add('BackUP\'+BackUpName+'BASE.gdb');
    IBBS.ServiceStart;
    while not IBBS.Eof do
      Memo1.Lines.Add(IBBS.GetNextLine);
  finally
    IBBS.Active:= False;
  end;
  Memo1.Lines.SaveToFile('BackUP\' +BackUpName+ 'BASE.log');
end;

Всем спасибо. Я нашёл решение. Записал в переменную текущий путь с помощью ExtractFilePath(Application.ExeName ) и вставил её в мой путь к базе. Теперь приложение можно скинуть на другую машину и оно будет работать
Закрывайте тему.