Ошибка TClientSocket и вопрос

[qwwwq]

У меня несколько вопросов:
1) есть компонент 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;

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

[Пепел Феникса]

1)покажите процедуру при ошибке(событие OnError)
2)сервер должен уведомить...вроде так

[psycho-coder]

У клиента есть метод OnConnect обрабатывается при подключению к серверу.
или можно так

if  ClientSocket1.Socket.Connected then <что-то>;