타이머를 써서 파일서버로 파일전송이 제대로 되었는지 검사하려고 3초마다
아래 루틴을 호출합니다.

IdFTP1->Host = LabeledEdit1->Text;
IdFTP1->Username = LabeledEdit2->Text;
  IdFTP1->Password = LabeledEdit3->Text;
    try
    {
         IdFTP1->Connect();
    }
    catch(...)
    {
         viewList_Add(" IdFTP not connected...");
         return;
    }

    if (!IdFTP1->Connected())
    {
         SB->SimpleText = "FTP NOT LOGIN";
         IdFTP1->Disconnect();
         return;
    }

    SB->Panels->Items[0]->Text = FormatDateTime("yyyy-mm-dd hh:nn:ss",Now());

    sql = String("select * from aa where (tdone is null or tdone <> 'Y') and ftpdone = 'Y';");
    q->Close();
    q->SQL->Clear();
    q->SQL->Text = sql;
    q->Open();

    TStringList *lst = new TStringList;
    while(!q->Eof)
    {
         rf1 =  q->FieldByName("recfile1")->AsString;
         checkF = path1+String("\\")+rf1+String(".mp3");
         try
         {
              IdFTP1->List(lst,checkF,true);
         }
         catch(...)
         {
         }

         if(lst->Count > 0)
         {
              Msg.sprintf("TRANS OK seq = %d",seq);
              viewList_Add(Msg);
              q->Edit();
              q->FieldByName("tdone")->AsString = "Y";
              q->Post();
         }
         else
         {
              q->Edit();
              q->FieldByName("ftpdone")->AsString = "N";
              q->Post();
         }
         q->Next();
    }
    q->Close();
    IdFTP1->Disconnect();

그런데 하루를 버티지 못하고 프로그램이 응답없음으로 죽습니다.
이벤트 로그를 보면

중단된 응용프로그램 fcheck.exe,버전 0,0,0,0 중단모듈 hungapp 버전 0,0,0,0 중단주소
0x00000000  

hungapp 에러가 발생되는것 같은데 어떻게 해야하는지요.
(현재 DB에 내용이 없어서 IdFTP 연결하고 퀴리하고 닫는 것이 계속 반복되는 경우인데 몇시간
후면 프로그램이 멈춰져 있네요)