[marilinspi]

Gracias Nelson con tu ayuda lo resolví, simplificándolo un poco:

Código Delphi [-]
IdFTP1.ChangeDir( '/public_html/Prueba/Suc1/');
FileList :=  TStringList.Create;
IdFTP1.List(FileList);
if (IdFTP1.DirectoryListing.Count = 2)and (IdFTP1.DirectoryListing.Items[0].FileName = '.')and (IdFTP1.DirectoryListing.Items[1].FileName = '..') then
  Vacio:=True
  else
    if IdFTP1.DirectoryListing.Count = 0 then
      Vacio:=True
      else 
        Vacio:=False;

muchas gracias....