Кто сможет подсказать с помощью каких компонентов можно создать чат в Delphi 7?

TSocetConnection - вкладка DataSnap

В стандартной поставке Delphi есть пример чата
DELPHI7\Demos\Internet\NetChat

Перенесено из раздела Дельфи

Проинсталль в Д7 Socket`s и юзай их! Будешь жить припеваючи, только замаешься постоянно IP or Host
вводить. Поэтому еще раз советую- ставь Д6, там много таких компонент!
Install Socket`s: Download DRKB

Самый простой чат лучше делать на UDP

1)Кидай на форму IdUDPClient и IdUDPServer из вкладки INDY, Edit, Button и Memo

2)IdUDPClient.host:='255.255.255.255';
BroadcastEnabled:=true; (для Client'a и для Server'a);
Active:=true (для Client'a и для Server'a);
Port:=Какой захочешь (UDP порты не пересекаются с TCP портами)

3) Обработчик события IdUDPServer.OnUDPRead:

Код

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;  ABinding: TIdSocketHandle); var  SFS:TStringStream;  s:String; begin SFS:=TStringStream.Create(''); SFS.CopyFrom(Adata,AData.Size); Memo1.Lines.Add('<'+ABinding.PeerIP+'> '+SFS.DataString); Abinding.SendTo(Abinding.PeerIP,Abinding.PeerPort,s[1],length(s)); SFS.Free; end;

4) Обработчик события кнопки отправления сообщения OnClick

Код

procedure TForm1.Button1Click(Sender: TObject); begin IdUDPClient1.Send(Edit1.text); end;

5) В раздел USES добавь IdSocketHandle
Всё простейший чат готов

Народ! Подскажите мне пожалуйста как при помощи этих компонентов запись переслать, срочно надо!

Crash Override >> а теперь вопрос: нафига в примере третьего пункта нужна строка №10:
Abinding.SendTo(Abinding.PeerIP,Abinding.PeerPort,s[1],length(s));
Подскажи лучше как в рунтайме этим компонентам(IdUDPClient и IdUDPServer) пожно порт сменить? У меня чето не выходит. Только в дизайнтаме получается.