첨부파일의 에로 화면이 계속 등잡합니다.

현재 아래와 같은 예외 처리를 하고 있지만

void __fastcall TForm1::AppException(TObject *Sender, Exception *E)
{
  Timer1->Enabled=false;

  String as="Err:"+Now().FormatString("mmddhhnnss:")+IntToStr(State)
              +":Sender;"+Sender->ClassName()
              +":Except;"+ Sender->ClassName();//  __ThrowExceptionName()
              //+":File;"+__ThrowFileName()
              +":Msg;"+E->Message;

    AddLogToMain("App Exception Error:"+as);

    SerSock->Active=false;

  Application->Terminate();
}

이 에러만이 피해 가는군요.
원인과 처리방법에 관하여 조언을 부탁 드립니다.