关于FTP服务器的问题

procedure TFTPServer.IdFTPServer1UserLogin( ASender: TIdFTPServerThread;
  const AUsername, APassword: string; var AAuthenticated: Boolean ) ;
begin
  AAuthenticated := ( AUsername = 'myuser' ) and ( APassword = 'mypass' ) ;
  if not AAuthenticated then
    exit;
  ASender.HomeDir := '/';
  asender.currentdir := '/';
end;
上面是设置登录FTP服务器的用户名及密码。  我想实现类似Serv-U的多用户，且不同的用户有不同的主目录，请问怎么实现？上面的代码可以实现单用户。