void __fastcall TForm1::NMFTP1Success(TCmdType Trans_Type)
{
  int i;
  switch(Trans_Type)
  {
   case cmdList:
    {
     for(i=0;i<=(StringGrid1->ColCount-1);i++)
     StringGrid1->Cols[i]->Clear();
     StringGrid1->RowCount=NMFTP1->FTPDirectoryList->name->Count+1;
     StringGrid1->ColCount=5;
     StringGrid1->Cells[0][0]="";
     StringGrid1->Cells[1][0]="文件名";
     StringGrid1->Cells[2][0]="文件大小";
     StringGrid1->Cells[3][0]="修改日期";
     StringGrid1->Cells[4][0]="属性";
     for(i=0;i<=(NMFTP1->FTPDirectoryList->name->Count-1);i++)
     {
     if(StrToInt(NMFTP1->FTPDirectoryList->Size->Strings[i])<=512)
        StringGrid1->Cells[0][i+1]="文件夹";
     else
        StringGrid1->Cells[0][i+1]="文件";
     StringGrid1->Cells[1][i+1]=NMFTP1->FTPDirectoryList->name->Strings[i];
     StringGrid1->Cells[2][i+1]=NMFTP1->FTPDirectoryList->Size->Strings[i];
     StringGrid1->Cells[3][i+1]=NMFTP1->FTPDirectoryList->ModifDate->Strings[i];
     StringGrid1->Cells[4][i+1]=NMFTP1->FTPDirectoryList->Attribute->Strings[i];
     }
     break;
    }
  case cmdChangeDir:Memo1->Lines->Add("更改目录成功");
       break;
  case cmdMakeDir:Memo1->Lines->Add("建新目录成功");
       break;
  case cmdRemoveDir:Memo1->Lines->Add("删除目录成功");
       break;
  case cmdDelete:Memo1->Lines->Add("删除文件成功");
       break;
  case cmdRename:Memo1->Lines->Add("更改文件名成功");
       break;
  case cmdReInit:Memo1->Lines->Add("重新登录成功");
       break;
  case cmdCurrentDir:Memo1->Lines->Add("当前目录成功");
       break;
  }
}
编译通过。
这是NMFTP组建里的关于登录成功时，但是我列表看ftp上文件目录时出现错误。
就是看不到目录-_-
列表的button是这段代码：
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  if(!NMFTP1->Connected)
  {
    ShowMessage("请联机或重新登录!");
    return;
   }
   NMFTP1->List();
}

有高手能帮我看看吗？