Определение "живости" соединения

Как в TServerSocket и TClientSocket определить в реальном времяни (перед посылкой_приемом данных) что соединение все еще функционирует, не разорвалось. А то у меня постоянно вылетает ексепшен и прога вылетает.

Если есть пример, то очень буду благодарен.