请帮小弟我看看这个奇怪的 scocket 有关问题，多谢

请各位大哥帮我看看这个奇怪的 scocket 问题，谢谢！
请教：
服务器端：
unit   Unit1;

interface

uses
    Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,
    Dialogs,   ScktComp,   StdCtrls;

type
    TForm1   =   class(TForm)
        ServerSocket1:   TServerSocket;
        Button1:   TButton;
        procedure   FormCreate(Sender:   TObject);
        procedure   Button1Click(Sender:   TObject);
    private
        {   Private   declarations   }
    public
        {   Public   declarations   }
    end;

var
    Form1:   TForm1;

implementation

{$R   *.dfm}

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

procedure   TForm1.Button1Click(Sender:   TObject);

begin

          ServerSocket1.Socket.SendText( 'fdfd ');

end;

end.


客户端：
unit   Unit1;

interface

uses
    Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,
    Dialogs,   ScktComp;

type
    TForm1   =   class(TForm)
        ClientSocket1:   TClientSocket;
        procedure   FormCreate(Sender:   TObject);
    private
        {   Private   declarations   }
    public
        {   Public   declarations   }
    end;

var
    Form1:   TForm1;

implementation

{$R   *.dfm}

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

end.


首先运行   服务器   ，然后运行客户端
然后我再单击   服务器的   Button1
则出现这样的错误：

各位大哥，这是什么原因？
我哪里没有写啊？
我刚重装了系统，并且   delphi   也是新装的


谢谢！

------解决方案--------------------
Server端:
procedure TForm1.Button1Click(Sender: TObject);
var
iLoop : Integer;
begin
for iLoop := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
ServerSocket1.Socket.Connections[iLoop].SendText( 'fdfd ');
end;
------解决方案--------------------
端口都设为100(任意)
服务端:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;

type
TForm1 = class(TForm)
srvrsckt1: TServerSocket;
btn1: TButton;
edt1: TEdit;
procedure srvrsckt1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}