ServerSocket发送信息的问题 ( 积分: 20 )

我放置一个ServerSocket在FORM1,我在FORM2中调用ServerSocket发送信息时,为什么提示raised exception class Esocketerror with message 'Windows socket error:'由于套接字没有连接并且（当使用一个sendto调用发送数据报套接字时）没有提供地址，发送或接收数据的请求没有被接受。（10057），on API 'send' 错误呢?(新人,分没多少,请包涵,谢谢)

具体代码贴出来看看

//以下代码点击按钮是提示以上错误
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.ServerSocket1.Socket.SendText(memo1.Text);
end;
//以下代码能正常运行,但是如果Clientsocket发送其他消息被Serversocket接受后,
//就会提示另一个错误如下:
//raised exception class EPrivilege with message 'Privileged instruction'

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

//传送信息
if pos('chat',s)>0 then
begin

form2.Memo2.Clear;
form2.Memo2.Text:=s ;
form2.Memo2.Lines.Delete(0);
chat_reply:=strtointdef(form2.Memo2.Lines.Strings[0],0);
form2.Memo2.Lines.Delete(0);
if chat_reply = 1 then
begin
form2.Memo2.ReadOnly:=false;
form2.Button1.Visible:=true;
form2.ShowModal;
socket.SendText('info'+#13+#10+form2.Memo2.Text);
end else
begin
form2.Memo2.ReadOnly:=true;
form2.Button1.Visible:=false;
form2.ShowModal;
end;
end;
end;

各位DFW,帮帮小弟啊.

改成这样试试！
procedure TForm2.Button1Click(Sender: TObject);
begin
if form1.ServerSocket1.Socket.ActiveConnections<=0 then exit;
form1.ServerSocket1.Socket.Connections[0].SendText(memo1.Text);
end;

liuying1129,可以了,谢谢.
第二个问题怎么解决啊?另外还有个帖(同名的),这个贴分太少了
第二个问题帮我解释一下好不好?