Запускается но не работает

[Reds]

Запускается но не работает чат вот код (компоненты:Edit1,Button1,Memo1)
procedure TForm1.Button1Click(Sender: TObject);
begin
IdUdpClient1.Send('Сюда помести имя отправителя'+edit1.text);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
stringFormatedStream:TstringStream;
s:string;
begin
//Èíèöèàëèçàöèÿ
StringFormatedStream:=TStringStream .Create('');
//Êîïèðîâàíèå èç ïðîñòîãî â ñòðîêîâûé
StringFormatedStream.CopyFrom(ADAta ,AData.size);
//Âûâîä ïîëó÷åííîãî ñîîáùåíèÿ
Memo1.Lines.Add(ABinding.PeerIP+' '+StringformatedStream.DataString);
//ÏÅðåíàïððàâëåíèå ñîîáùåíèÿ äàëüøå
Abinding.sendto(Abinding.peerIP,abi nding.peerport,S[1],length(s));
//Îñâîáîæäåíèå ñòðîêîâîãî ïîòîêà
StringFormatedStream.free;
end;

[Квэнди]

что значит не работает ?