Indy の例外対処方を教えてください

メッサ 2008-08-01 01:37:41 No: 31446

Indy 9 + Windows Vista + D7 で
以下のようにプログラムを作成しました。

この場合、Connection Closed Gracefully の例外が発生した場合は
そのままスルーして処理を続行すればよいと思うのですが、
ほとんどの場合発生しません。
この場合の対処方法がわかりません。
教えてください。

IdTCPClient := TIdTCPClient.Create(Self);
IdTCPClient.Host := ClientIP;
IdTCPClient.Port := PortNum;
try
  IdTCPClient.Connect(TIME_OUT);
  try
    IdTCPClient.ReadBuffer(GetData, 400);
  except
    on e: EIdConnClosedGracefully do
    else raise EAbort.Create('Get error');
  end;
finally
  IdTCPClient.Free;
end;