该源码是在XE8安装目录中的IdTCPConnection文件下
procedure TIdTCPConnection.CheckForGracefulDisconnect(ARaiseExceptionIfDisconnected: Boolean);
var
// under ARC, convert a weak reference to a strong reference before working with it
LIOHandler: TIdIOHandler;
begin
LIOHandler := IOHandler;
if Assigned(LIOHandler) then begin
LIOHandler.CheckForDisconnect(ARaiseExceptionIfDisconnected);
end else if ARaiseExceptionIfDisconnected then begin
raise EIdException.Create(RSNotConnected); //抛出异常
end;
end;