[Deell]

при нажатии на кнопку выполняется вот такой код

Код:

if CheckBox1.Checked=True then begin
  ClientSocket1.Host:='comp1';
  ClientSocket1.Open;
  ClientSocket1.Close;
end;
 
if CheckBox2.Checked=True then begin
  ClientSocket1.Host:='comp2';
  ClientSocket1.Open;
  ClientSocket1.Close;
end;
 
procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText('s');
ClientSocket1.Close;
end;

выскакивает ошибка asynchronous socket error 10049, а если между условиями добавить showmessage, то все норм. подскажите в чем проблема?