[Asinkrit]

Вот этого должно быть достаточно:

Код:

procedure TForm1.ConnectToBtnClick(Sender: TObject);
begin
  if ClientSocket1.Active then
    begin
    ClientSocket1.Active := False;
    ConnectToBtn.Caption := 'Соединиться'
    end
  else
    begin
    ClientSocket1.Host := HostNameEdit.Text;
    ClientSocket1.Port := StrToInt(PortToEdit.Text);
    ClientSocket1.Active := True;
    end
end;

Более года назад я написал "электронное отображение расписания" для Питерского кинотеатра "Художественный", работающего через сокеты, и было несколько проблем с подключением, одна решалась "игрой" с параметром ServerType, вторая "игрой" с фаерволом, а третья с установкой обновления для XP (одного из KB921883,KB923414,KB958644).
Сейчас система электронного отображения расписания работает как по часам, глянул исходники, у меня они от выже изложенного варианта фактически не отличаются.