可以控制访问权限的，你要在服务端建立一个用户和口令列表，当有用户连接时判断是否合法用户。
客户端：
procedure TForm1.ConnectFtpClick(Sender: TObject);
begin
FtpClient1.HostName := bsSkinEdit1.Text;
FtpClient1.Port := '50000';
FtpClient1.Timeout := 5000;
//当前登陆的用户和口令
FtpClient1.UserName := Trim(Edit1.Text);
FtpClient1.PassWord := Trim(Edit2.Text);
try
FtpClient1.ConnectAsync;
except
On E:Exception do
writeln(E.message);
end;
end;
服务端：
procedure TFtpServerForm.FtpServer1ClientConnect(Sender: TObject;
Client: TFtpCtrlSocket; Error: Word);
var
UserName ,PassWord: string;
begin
//取当前连接的用户名
UserName := Client.UserName ;
//取当前连接用户的口令
PassWord := Client.PassWord;
//比较用户名和口令
。。。。
end;
