Определение пути к файлу

[Pinya]

Всем доброго времени суток. Тут созрел вопросик.
Есть полностью рабочая ф-ия:

// Возращает выбранный путь каталога
function GetPath(mes: string):string;
var
  Root: string;
  pwRoot : PWideChar;
  Dir: string;
begin
  Root := '';
  GetMem(pwRoot, (Length(Root)+1) * 2);
  pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);
  if SelectDirectory(mes, pwRoot, Dir)
     then
          if length(Dir) = 2
              then GetPath := Dir+'\'
              else GetPath := Dir
     else
          GetPath := '';
end;

var
  Path: string;
begin
  Path := GetPath('Выберите папку');
  if Path <> ''
     then Form2.Label1.Caption := Path;

А вопросик такой.
Как возвратить местоположение не каталога а файла?

[Ozerich]

компонент openDialog