FTP - NMFTP

nao estou conseguindo colher o número de arquivos do diretorio listado... sempre o ´NMFTP1.FTPDirectoryList.name.Count´ me retorna zero alguem 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.