Indy IdFTPserver的使用,搞不明白(100分)

procedure TForm1.IdFTPServer1UserLogin(ASender: TIdFTPServerThread;
const AUsername, APassword: String; var AAuthenticated: Boolean);
begin
if (AUsername='abc') And (APassword='123') then
begin
AAuthenticated:=True;
ASender.Connection.WriteLn(AUsername+'哇噻！，你登陆成功了也');
end;
end;
--------------------------------------------------
以上是代码,如果加上"ASender.Connection.WriteLn(AUsername+'哇噻！，你登陆成功了也');"这句话, 在客户端输入正确的用户和密码后,会提示" login failed"

如果没有加上这句话,客户端输入正确的用户和密码后,正常登陆
----------------------------------------------------------------------
另外,这个事件应该怎么写,请提示一二
procedure TForm1.IdFTPServer1ListDirectory(ASender: TIdFTPServerThread;
const APath: String; ADirectoryListing: TIdFTPListItems);
begin

end;

procedure TForm1.IdFTPServer1UserLogin(ASender: TIdFTPServerThread;
const AUsername, APassword: String; var AAuthenticated: Boolean);
begin
[red]interited;[/red]
if (AUsername='abc') And (APassword='123') then
begin
AAuthenticated:=True;
ASender.Connection.WriteLn(AUsername+'哇噻！，你登陆成功了也');
end;
end;
试试～

如果加上"ASender.Connection.WriteLn(AUsername+'哇噻！，你登陆成功了也');"


真不知道你想干什么，有嘛用？ 建议你好好看看RFC

1。。。。。。
ASender.Connection.WriteLn(AUsername+'哇噻！，你登陆成功了也');
该为
ASender.Connection.WriteLn('230 '+AUsername+'哇噻！，你登陆成功了也');
记得有空格得

2。。。。。。
LIST目录时候，将要显示的结果，直接写到ADirectoryListing: TIdFTPListItems

在delphibbs上如同走江湖,冷不防就碰上一位高手,给你致命一刀...
sisha先生对这方面很有研究,如何联系呢?

接受答案了.