[Edinora]

у меня есть на форме openpicdialog. я загружаю картинки с другой папки и пересохраняю их в мою.
по появилась проблема после загрузки изображения, у еня пересттает выполнятся условие

Код:

 If DirectoryExists(+'Teams') then 

после того как я прописала

Код:

If DirectoryExists(ExtractFilePath(Application.ExeName)+'Teams') then 

мне выдало путь в папку откуда я грузила картинки. Что мне изменить что бы такого больше не происходило?
код кнопки загрузки:

Код:

    dlgOpenPic1.InitialDir:=ExtractFilePath(Application.Exename);
     if dlgOpenPic1.Execute then
    begin
        fFilePicPath:=ExtractFilePath(dlgOpenPic1.FileName);
        fFilePicName:=ExtractFileName(dlgOpenPic1.FileName);
        ImEmblem.picture.LoadFromFile(fFilePicPath+fFilePicName);
        edt1.Text:= fFilePicPath+fFilePicName;
    end;