try except and socket

[Pein95]

    try
      clientsocket1.Address:=ipedit.Text;
      clientsocket1.Port:=strtoint(POrtedit.Text);
      clientsocket1.Active:=true;
    except
       showmessage('Sorry No Connect');
    end;

ну вот собственно код в котором если не удалось сойденитса должно показатса окно, но проблема в том что дальше появляетса ошыбка asynchronous socket error 10061

[kangreon]

В TClienSocket есть событие OnError
В нем и нужно отлавливать ошибки сокета.

[Pein95]

ясно) спс за помощь