problem in function TIdSimpleServer.Listen: Boolean;

Hi all.
I use Indy components 10.1.5.0 and I try to realize an application wich sync
two folders, one of each in ftp.

If I have a lot of file, sometimes the ftp component freeze.
In particular I have noted thant the software is blocked in the function
TIdListenServer.Listen where it cycle infinitely this loop:

        while (FAbortedRequested = False) and (Result = False) do begin
          Result := Select(AcceptWait);

because result is always false and FAbortedRequested is always false.

The component is locked in this loop after I have called a FTP.List

Do you have sone workaround ?

thanks

Rodolfo