"Connection Closed Gracefully"라는 에러는 아니지만 예외처리(?)를 어떻게 해결을 해야할지 정말 모르겠습니다...
Help에서 찾아봤는데  도구의  Debug Option에서 EIdConnClosedGracefully 를 설정하면 안 나온다고 하는데 계속 나옵니다... 어떻게 해결을 해야 할지 정말 몰겠습니다....아시는 분 좀 도와주세요..

타임서버에서 시간을 갖고와서  로컬컴퓨터에 시간을 재설정하는 것입니다..

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    datetime->Val = IdTime1->DateTime;           // 지정한 Host에서 시각을 얻음
   try
   {
        if ( datetime->Val != 0) {
              LTime->Caption = DateTimeToStr( datetime->Val);   // 시각 표시
        Edit3->Text = "";
        }else {
        Edit3->Text = "접속중...";
        }
    } catch (...) {
        Edit1->Text = "Time Server Error.";
    }

}
/*==============================================================*/
/*    Local컴에 시각 재 설정                         */
/*--------------------------------------------------------------*/
void __fastcall TForm1::Set_PCDateClick(TObject *Sender)
{
    if ( datetime->Val != 0) {
    SetLocalTime( datetime->Val);                         // 시각 재 설정함
    }
}

/*==============================================================*/
/*    TimeServer에 접속 시작                */
/*--------------------------------------------------------------*/
void __fastcall TForm1::GetTimeClick(TObject *Sender)
{
    IdTime1->Host = Edit2->Text;
    Timer1->Enabled = true;                                  // Timer기동

}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdTime1Connected(TObject *Sender)
{
    if ( IdTime1->Connected() == true) {
        datetime = new TDateTime();                       // DateTime() 생성함
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdTime1Disconnected(TObject *Sender)
{
    if ( IdTime1->ClosedGracefully == true) {
        Edit1->Text = "정상 종료";
    } else {
        Edit1->Text = "이상종료";
    }
    IdTime1->Disconnect();
}
//---------------------------------------------------------------------------