请各位大哥帮我看看这个奇怪的 scocket 问题，谢谢！

Question

请教：
服务器端：
unit Unit1;interfaceuses
  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;interfaceuses
  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 也是新装的
谢谢！