Internet Direct (Indy) Version 9.0.1 Beta
Example 1
    AFtp.ChangeDirUp;
    CurDirEdit.Text := AFtp.RetrieveCurrentDir;