Как заменить абсолютный путь относительным Delphi

[Kreadlling]

Здравствуйте! Не поможете в решении одной задачи: У меня программа на Delphi - загружает тесты по физике в виде картинок в базу данных. Но при этом указывается полный путь d:/my/task. Если открывать открывать эту
программу на другом компе, то папка my может быть перемещена на диск e. И при попытке достать картинку по старым путям в базе данных уже не получится. Открывается картинка с помощью элемента OpenPictureDialog1.
Не подскажете как решить эту проблему.

Спасибо заранее.

procedure TFormMain.BitBtn7Click(Sender: TObject);
var Fname:string;
begin
   if OpenPictureDialog1.Execute then
      begin
         fname:=openpicturedialog1.filename;
         with dm.q do // Запрос из базы данных
            begin
               Active := false;       // неактивен
               SQL.Clear; // очистить запрос
               SQL.Add('INSERT INTO IM_TABLE(IMG) VALUES(');
               SQL.Add(QuotedStr(Fname) + ')');
               ExecSQL;
            end;
            with dm.SimpleDataSet2 do  
            begin
               Active:=false;
               DataSet.Active := false;
               DataSet.Active := true;
               Active := true;
               Locate('IMG', Fname, [loCaseInsensitive]); 
            end;
      end;
end;

[Kreadlling]

Вопрос немного изменился: как при добавлении в базу добавлялся путь только начиная с подпапки картинок
где лежит прога, т.е. чтобы в базу заносилась информация не d:\my\pic\pic1\1.jpg, a только pic\pic1\1.jpg? my - папка с прогой
Нужна функция которая разбивала бы путь на подпути, может есть такая?

[=master=]

Проще и правильнее где-то в настройках держать путь к папке с картинками, а в базе только имя файла (если они все скопом в одной папке).

[_SERGEYX_]

ExtractFilePath(Application.ExeName); //со слешем в конце
// или
ExtractFilePath(ParamStr(0));

ExtractFileDir(Application.ExeName);  //без слеша в конце
// или
ExtractFileDir(ParamStr(0));

А папки с картинками храни внутри папки с программой