IdFTPServer 怎么设置不允许修改文件夹名称

IdFTPServer 如何设置不允许修改文件夹名称
网上下了个TFTPServer类，是TFTPServer的扩展，这个类默认是允许修改文件夹名的，代码如下：
procedure TFTPServer.IdFTPServer1RenameFile( ASender: TIdFTPServerThread;
  const ARenameFromFile, ARenameToFile: string ) ;
begin
  try
    if not MoveFile( pchar( TransLatePath( ARenameFromFile, ASender.HomeDir ) ) , pchar( TransLatePath( ARenameToFile, 
       。。。。。。。。
end;
那么如何不允许修改文件名？在以上过程中，直接加入exit，在客户端修改文件夹名虽然不会成功，但是也没有任何提示，处于死机状态，最后报错。类似该问题的还有如何不允许新建文件夹？新建文件夹代码如下：
procedure TFTPServer.IdFTPServer1MakeDirectory( ASender: TIdFTPServerThread;
  var VDirectory: string ) ;
begin
  try
    MkDir( TransLatePath( VDirectory, ASender.HomeDir ) ) ; //新建文件夹
  except
    on e:Exception do
    begin
      if Assigned(FOnFtpNotifyEvent) then
        OnFtpNotifyEvent(Now, ASender.Connection.Socket.Binding.PeerIP,'创建目录[' + Utf8ToAnsi(VDirectory) + ']失败，原因是' + e.Message);
      Exit;
    end;
  end;
  if Assigned(FOnFtpNotifyEvent) then
    OnFtpNotifyEvent(Now, ASender.Connection.Socket.Binding.PeerIP,'创建目录[' + Utf8ToAnsi(VDirectory) + ']');
end;
------解决方案--------------------
exit前要回复
ASender.Connection.SendCmd('553 Not allowed.');
553后面的信息自己可以改。