проблема с сокетами

[Boris-Britva]

Всем привет! У меня такая проблема - когда я отсылаю текст от клиент на сервер на своём компьютере то всё нормально, но когда я ставлю сервер на другой комп то выдаёт такую ошибку:

Windows socket error: Обычно разрешается только один адрес сокета(протокол/сетевой адрес/порт)
(10048), on API 'bind'

Порт пробывал менять - тоже самое.

Вот код

Клиент:

procedure TForm1.Button1Click(Sender: TObject);
begin
clientserver1.Address:=edit2.text;
clientserver1.Active:=true;
clientserver1.Socket.SendText('12345');
clientserver1.Active:=false;
end;

Сервер:

procedure TForm1.ss1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var s:string;
begin
s:=socket.ReceiveText;
showmessage(s);
end;

[ArtGrek]

если ты все превелно зделал и они подключилис, вот:

var
  s: string

//на Client
procedure TForm1.Button1Click(Sender: TObject);
begin
  ServerSocket1.Socket.Connections[0].SendText(s);
end;
//на Server
procedure TForm1.Button1Click(Sender: TObject);
begin
  s:=ClientSocket1.Socket.ReceiveText;
  Memo1.Lines.Add(s);
end;

[Boris-Britva]

в том то и дело что они не подключаются

[ArtGrek]

для начала поими как происходит диалог между сервером и клиентом, вот тебе прога думаю разберешся
P.S. после каждого Send нажимаи Resive, иначе толко по 1 разу пошлеца