[qwwwq]

есть компонент TClientSocket если в адрес сервера и порт указан правльно то все нормально обрабатывается, если же адрес либо порт неправльно указан то выдается ошибка виндовса. Я по событию OnError сделал обработчик, но он у меня после все равно выдает ошибку виндосовскую.
Делаю элементарно:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 ip:string;
 port:integer;
begin
 ip:=sMaskEdit1.Text;
 port:=strtoint(Edit1.Text);
 ClientSocket1.Address:=ip;
 ClientSocket1.Port:=port;
ClientSocket1.Active := true;
end;

Что не так?
И как определить клиенту что текст до сервера дошел?

[Casper-Hacker]

Исходник чата

[Daxter]

try
ClientSocket.Active := true;
except
ShowMessagePos('Не удалось соедениться с сервером',100,100);
end;