[anghela]

именно с помощью клиент и сервер сокет мне и нужно реализовать программу. Только как это сделать? Пишу соединение с сервером для TClientSocket:

Код:

 ClientSocket1.Host:='78.85.164.232';
  ClientSocket1.Port:=1001;
  ClientSocket1.Open;
  ShowMessage('Соединение установлено');
  ClientSocket1.Socket.SendText(Edit1_ssud_schet.Text);

Затем пишу на сервере:

Код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var mail:String;
begin
  mail:=Socket.ReceiveText;
  Memo1.Lines.Add(mail);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   ServerSocket1.Close;
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('Подключился клиент с IP адресом '+Socket.RemoteAddress);
end;

в итоге подключение не происходит