idFTP, проверка наличие папок и работа

[саша40]

Работаю с idFTP. Пытаюсь проверить наличие деректории(по названию) в открытой, пока написал это:

var
DeleteAccount: array [1..MAX_PATH] of String;
T: string;
f1: TextFile;
sp,s: TStringList;
I: integer;
r: integer;
begin
idFTP1.Host:='****';
idFTP1.UserName:='***';
idFTP1.Password:='****';
idFTP1.Connect();
if not idFTP1.Connected then
begin
ShowMessage('Не удалось соеденится с сервером');
exit;
end;
if FileExists(Path + '\' + Login + '\Контакты.ini') then
begin
sp:= TStringList.Create;
s:= TStringList.Create;
s.Text:=Logins.Text;
AssignFile(f1,Path + '\' + Login + '\Контакты.ini');
Rewrite(f1);
try
read(f1,T);
Logins.Add(T);
finally
closefile(f1);
end;
if Logins.Count=0 then exit;
s.Text:=Logins.Text;
idFTP1.ChangeDir('/Users/');
idFTP1.List(sp);
Application.ProcessMessages;
for i:=1 To sp.Count Do
begin
if s.Strings[i]=sp.Strings[i] then
s.Delete(i); 
Application.ProcessMessages;
end;
if s.Count > 0 then
begin
for i:=1 To s.Count Do
begin
DeleteAccount[i]:=s.strings[i];
S.Delete(i);
Application.ProcessMessages;
end;
FreeAndNil(s);
FreAndNil(sp);
for i:=1 To sizeof(DeleteAccount) Do
begin
for r:=1 To Logins.Count Do
begin
if Logins.Strings[r]=DeleteAccount[i] then Logins.Delete(i);
Application.ProcessMessages;
end;
T:=T + ',' + DeleteAccount[i];
Application.ProcessMessages;
end;
ShowMessage('Конкты: ' + T + '. Были удалены из системы.');
end;
for i:=1 To Logins.Count Do
ComboBox1.Items.Add(Logins.Strings[i]);
 
for i:=1 To Logins.Count Do
begin
//работаем дальше
idFTP1.ChangeDir(Logins.Strings[i]);
...//пока думаю
Application.ProcessMessages;
end;
end;

Проблема в том, что в открытой папке может содержатся несколько сот тысяч папок и только их получение в список займет более 2 минут. Вопрос: Есть ли в компонента процедура, которая позволяет проверить по название наличие(и только) деректории на сервере?