FTP Client

Hallo!
Ich habe mir im C++Builder 5 einen FTP Client programmiert.
Ich habe nur ein Problem, wenn ich auch den Button mit "Verzeichnis" klicke,
der mir den Inhalt des aktuellen Verzeichnisses in einem String Grid
anzeigen sollte kommt eine Fehlermeldung:

A list command is already being processed

Code vom Verbinden-Button:

void __fastcall TForm1::Button2Click(TObject *Sender) 
{ 
NMFTP1->List(); 
}

Code, wo der Fehler sein sollte:

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; 
StringGrid1->ColCount = 4; 
StringGrid1->Cells[0][0] = "Dateiname"; 
StringGrid1->Cells[1][0] = "Größe"; 
StringGrid1->Cells[2][0] = "Änderungsdatum"; 
StringGrid1->Cells[3][0] = "Attribute"; 

for (I = 0; I <= (NMFTP1->FTPDirectoryList->name->Count - 1); I++) 
{ 
StringGrid1->Cells[0][I+1] = 
NMFTP1->FTPDirectoryList->name->Strings[I]; 
StringGrid1->Cells[1][I+1] = 
NMFTP1->FTPDirectoryList->Size->Strings[I]; 
StringGrid1->Cells[2][I+1] = 
NMFTP1->FTPDirectoryList->ModifDate->Strings[I]; 
StringGrid1->Cells[3][I+1] = 
NMFTP1->FTPDirectoryList->Attribute->Strings[I]; 
} 
} 
case cmdChangeDir: 

{ 
Memo1->Lines->Add("Verzeichniswechsel erfolgt"); 
NMFTP1->List(); 
} 
case cmdMakeDir: Memo1->Lines->Add("Verzeichnis erstellt"); //Er 
zeigt an, dass hier der Fehler sein sollte. 
case cmdRemoveDir: Memo1->Lines->Add("Verzeichnis gelöscht"); 
case cmdDelete: Memo1->Lines->Add("Datei gelöscht"); 
case cmdRename: Memo1->Lines->Add("Datei umbenannt"); 
case cmdReInit: Memo1->Lines->Add("Reinitialisierung erfolgt"); 
case cmdCurrentDir: Memo1->Lines->Add("Aktuelles Verzeichnis 
angezeigt"); 

} 

}

Ich hoffe, ihr könnt mir so rasch als möglich helfen.
Mfg Jürgen