[delphi-br] Porque acontece isto

[stainle2003]

tenho uma máquina FTP mapeado como H:
através do DELPHI7 faço leituras nesta máquina em diretórios 
específicos e mostro o conteúdo em ListBox, acontece que depois de 
aproximadamente 30 minutos não mostra mais nada, se eu fechar o 
programa e chamá-lo novamente volta a mostrar os conteúdos; fiz a 
rotina abaixo para tentar ver se perdi a conexão mas não está dando 
resultado, o que pode estar acontecendo ??

grato

Stainle

        dirzip := 'H:\stcp\tttt\';
              begin
                   System.RmDir(pchar(dirzip));
              end;
        try
            System.MkDir(pchar(dirzip));
        except
            ShowMessage('saindo 1111');
            Application.Terminate;
            exit;
        end;
        try
            System.RMDir(pchar(dirzip));
        except
            ShowMessage('saindo 222222');
            Application.Terminate;
            exit;
        end;
        Parafiliais();
        Dasfiliais();