[idinht]

Доброго времени суток!
Имеется написанный FTP сервер, но нужно к нему прикрутить систему авторизации для нескольких клиентов (в данный момент только один):

Код:

procedure TFTPServer.IdFTPServer1UserLogin(ASender: TIdFTPServerThread;
  const AUsername, APassword: string; var AAuthenticated: Boolean);
begin
 AAuthenticated:=(AUsername='admin') and (APassword='password');
 if not AAuthenticated
 then Exit;
 ASender.HomeDir:='/';
 ASender.currentdir:='/';
end;

Можно ли это как модифицировать для того чтобы он подключал пользователей под разными именами (заранее приписанными)?