var
  selectedFile   : string;
  drive          : char;
  path, fileName : string;

begin
  // Просим пользователя выбрать файл
  if PromptForFileName(selectedFile)
  then
  begin
    // Отображение этого полного значения файла/пути
    ShowMessage('Выбранный файл = '+selectedFile);

    // Разбиение этого полного значения файл/путь на непосредственно составляющие части
    ProcessPath(selectedFile, drive, path, fileName);
    ShowMessage('диск = '+drive);
    ShowMessage('путь = '+path);
    ShowMessage('имя файла = '+fileName);
  end;
end;