Asynchronos Socket Error 10061 ??

[dde]

thx!

Hier der Code meines Servers:

Delphi-Quellcode:

unit uServer;

interface

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

type
  TForm1 = class(TForm)
    ServerSocket: TServerSocket;
    Memo1: TMemo;
  procedure FormCreate (Sender: TObject);
    procedure ServerSocketClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocketClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocketClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket.Port:=23;
  ServerSocket.Active:=True;
end;

procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket); 
begin 
Memo1.Lines.Add(Socket.ReceiveText);
end;

procedure TForm1.ServerSocketClientConnect(Sender: TObject;
  Socket: TCustomWinSocket); 
begin
  Memo1.Lines.Add('connected');
end;

procedure TForm1.ServerSocketClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 Memo1.Lines.Add('Disconnected');
end;
end.

Ist der Falsch?