[Aндрей]

Мне в программе нужно укоротить путь до папки (использую TShellTreeView). Так вот, пробовал тренироваться на эдитах:
Edit1.Text:= TShellTreeView.Path;

Код:

function ShortFileName(const FileName: string): string;
var aTmp: array[0..255] of Char;
begin
  if not DirectoryExists(FileName)  //FileExists(FileName)
    then Result:=''
    else if GetShortPathName(PChar(FileName), aTmp, Sizeof(aTmp)-1) = 0
      then Result:= FileName
      else Result:= StrPas (aTmp);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit2.Text:=(ShortFileName(Edit1.Text));
end;

Почему-то он возвращает в Edit2 пустое значение.. Подскажите что ни так?