как сделать с сокетом

[cargo29]

ClientSocket
ServerSocket

клиент

procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.active:=true;
ClientSocket1.Host:=edit1.Text;
ClientSocket1.Port:=854;
ClientSocket1.Socket.Connect();
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('команда');
end;

что тут не правильно?? и правильно ли я сделал что бы отправить команду??


сервет
ServerSocket1.Active:=true;
ServerSocket1.Port:=854;
а дальше что как прописать???



P.S. я только начал изучать ну рагать

[cargo29]

ни кто не знает?

[_-Re@l-_]

Это пример чата для двух человек.

[cargo29]

Сообщение от _-Re@l-_

Это пример чата для двух человек.

а можешь команды расписать если не трудно?

[cargo29]

ау ауау...................