Fórum URGENTE!!! FTP c/ NMFTP #154356

Nao estou conseguindo colher o número de arquivos e subpastas do diretorio listado... sempre o ´NMFTP1.FTPDirectoryList.name.Count´ me retorna o valor 0, ja fiz a conexao via cmd e existe conteudo na pasta, qualquer outro método funciona(changedir, download,upload etc...) alguém pode me ajudar - Delphi 6?

O código é o seguinte:

procedure TForm1.Button1Click(Sender: TObject);
begin
with NMFTP1 do begin
Host := ´200.225.200.200´;
UserID := ´user´;
Password := ´pass´;
Port := 21;
ParseList := true;
Connect;
ChangeDir(´diretorio´);
List;
end;
end;

procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);

begin
if Trans_Type = cmdList then
ShowMessage(intTostr(NMFTP1.FTPDirectoryList.name.Count));
end;
end.[b]