Delphi позволяет узнать полностью путь к файлу без имени самого файла. Для этого существует функция ExtractFilePath. Например если мы имеем полный путь файла "C:\Documents and Settings\int\Мои документы\doc1.doc", то "C:\Documents and Settings\int\Мои документы" будет этим самым путем.

Функция имеет следующий синтаксис:

function ExtractFilePath(const FileName: String): String;

Для закрепления материала расположим на форме компонент Label и кнопку.

Обработчик нажатия кнопки сделаем таким:

procedure TForm1.Button1Click(Sender: TObject);
begin
    if OpenDialog1.Execute then
      Label1.Caption :=
      ExtractFilePath(OpenDialog1.FileName);
end;

Нажав на кнопку открывается диалоговое окно выбора файла. Выбрав какой либо файл его путь будет показан  компонентом Label.

Итог: мы познакомились с функцией ExtractFilePath.