Выбор домашней папки пользователя в IdFTPServer

[noname_06]

FTP сервер на основе XE3 + IdFTPServer v10. Как правильно установить корневую директорию для пользователя? В моей версии пользователь после подключения оказывается в общей для всех папке (Options.StoredPath):

procedure TfMain.IdFTPSrvAfterUserLogin(ASender: TIdFTPServerContext);
var
  tmp : string;
begin
  tmp := Options.StoredPath + ASender.Username + '/';
  if not DirectoryExists(tmp) then
    if not ForceDirectories(tmp) then
    begin
      MessageDlg('Невозможно создать директорию для пользователя ' + ASender.Username,
                 mtError, [mbYes], 0);
        AddToLog(DateTimeToStr(Now) + '> Невозможно создать директорию для пользователя ' +
                 ASender.Username, clMaroon);
    end;
  ASender.HomeDir := tmp;
  ASender.CurrentDir := '/';
end;

Т.е. user1 вместо того, что бы попасть в "физическую" папку c:\users\user1 попадает в c:\users\
Пробовал переносить код в событие IdFTPSrvUserLogin - без изменений.
*демки от 9 и 10 версий смотрел. "Глубины Indy" ситуацию не прояснили, как и IndyDocs_10.1.5.0_Pdf
Может ли быть проблема в синхронизации потоков, создаваемых Indy, с основным приложением? Пробовал ставить breackpoint'ы и ShowMessage'и - реакции ноль. И как можно просмотреть значение ASender?
Вообще складывается такое впечатление, что события UserLogin и AfterUserLogin не происходят. Хотя как оно тогда работает?

[Stilet]

Вообще складывается такое впечатление, что события UserLogin и AfterUserLogin не происходят.

Вау! Наконец то верная мысль )))
А то понимаешь ли и "проблема в синхронизации потоков" и "переносить код в событие IdFTPSrvUserLogin"
Директорию юзеру лучше всего задавать в OnListDirectory. Все равно получение списка файлов идет через это событие. Вот там и прибавляй свое c:\users\

[noname_06]

Вообще то это было предположение "в порядке бреда". Про взаимодействие потоков меня натолкнули на форуме embarcadero.
Тогда 2 вопроса к знающему: почему события не происходят и почему код, фактически "скопипащеный" из офф демки Indy, не работает.
*подключаюсь с помощью totalcmd

Сообщение от Stilet

Вау! Наконец то верная мысль )))

Звучит так, как будто я тут всем мозг третьи сутки выношу переименованием label'a