try except problem

Здравейте! Възникна ми следния проблем.
Правя две приложения (сървер и клиент), които трябва просто да си разменят някакви текстове. Използвам компонентите TClientSocket и TServerSocket. Проблема ми е в това че в следния фрагмент от програмата не работи както трябва (според мен :)))) ), а именно не се прихваща грешката ако има такава, тоест ако сервер сокет-а не е отворен

try
ClientSocket1.Open;
except
on exception do ShowMessage('Error');
end;

Благодаря ви предварително!

В този случай по-скоро ти трябва OnError събитието на сокета.

Благодаря ти Андрю!