NTPサーバ問い合わせでプログラムがとまってしまう (ID:7906)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

IdSNTPを使ってNTPサーバにアクセスしてPC's Clockの
時刻あわせをしているプログラムですが、
どうしても途中で止まってしまいます。

書き方が悪いのでしょうか？

初期値  SyncTimeCounter := 0;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Inc( SyncTimeCounter );

if SyncTimeCounter >= 60 then begin

IdSNTP1.Active	:= True;

SyncroPCClock(Sender);

IdSNTP1.Active	:= False;

SyncTimeCounter := 0;
      end;

end;

procedure TForm1.SyncroPCClock(Sender: TObject);
var
    SyncroOK  : Boolean;

begin
    WriteLogMsg := '';

if not IdSNTP1.Active then
      begin
          WriteLogMsg := DateTimeToStr(Now) + ' IdSNTP Not Active...';
          exit;
      end;
	
  try

IdSNTP1.Host := NTPHost;
    IdSNTP1.Port := NTPPort;

SyncroOK := IdSNTP1.SyncTime;

if SyncroOK then WriteLogMsg := DateTimeToStr(Now) + ' SyncTime Sucsess...'
    else WriteLogMsg := DateTimeToStr(Now) + ' SyncTime Failure...';

except
    WriteLogMsg := DateTimeToStr(Now) + ' ERROR : Check the LAN or Router 123 Port Open...';
    exit;
  end;

end;

こんな感じのプログラムです。
よろしくお願いします。

←解決時は質問者本人がここをチェックしてください。