IdFTPServer使用问题，谢谢~(100分)

IdFTPServer所有属性都为默认值；
procedure TForm1.IdFTPServer1ListDirectory(ASender: TIdFTPServerContext;
const APath: string;
ADirectoryListing: TIdFTPListOutput;
const ACmd,
ASwitches: string);
var
LFTPItem :TIdFTPListItem;
SR : TSearchRec;
SRI : Integer;
begin
ADirectoryListing.DirFormat :=do
Unix;
SRI := FindFirst(ReplaceChars(AppDir + APath + '/*.*'), faAnyFile, SR);
While SRI = 0do
begin
LFTPItem := ADirectoryListing.Add;
LFTPItem.FileName := SR.Name;
LFTPItem.ModifiedDate := FileDateToDateTime(SR.Time);
if SR.Attr = faDirectory then
begin
LFTPItem.ItemType := ditDirectory;
LFTPItem.Size := 0;
end
else
begin
LFTPItem.ItemType := ditFile;
LFTPItem.Size := SR.Size;

end;
SRI := FindNext(SR);
end;
FindClose(SR);
end;
此时ADirectoryListing.Count已经包含有 '.' 和 '..' 两个文件，但为什么IdFTP1端的IdFTP1.DirectoryListing.Count总是少2个，具体把文件显示出来发现就是少了 '.' 和 '..' 两个文件，如何才能让这两个文件显示出来呢？
ADirectoryListing.DirFormat :=do
Unix;这句有什么作用呢？
非常感谢！！

实在话：俺用楼主的代码做了服务端，然后用命令行模式的telnet登录后dir,.和..赫然在目。

为什么 IdFTP 端的 IdFTP1.DirectoryListing.Count 总是少2个呢？而同样的 IdFTP 端在登陆 ServU 时，就可以显示出 '.' 和 '..'。
LeeChange 能不能告诉个邮箱，我发个测试的程序过来帮忙看看，非常感谢！