SocketRead wird nicht ausgeführt

[Octom]

Ich habe heute versucht einen kleinen Chat basierend auf einem Tutorial zu erstellen.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    ClientSocket1: TClientSocket;
    ServerSocket1: TServerSocket;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  massage: string;

implementation

{$R *.DFM}

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientSocket1.Socket.SendText(Edit1.Text);
  Edit1.Text:='';
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin

  Memo1.Lines.Add(Socket.ReceiveText);
end;

Beim Durchlaufen der einzelnen Anweisungen ist mir aufgefallen, dass nach dem Drücken des "Send" knopfes, die prozedur ClientSocket1Read nicht ausgeführt wird.
Ich hab keine Ahnung, woran es liegen kann, da ich auch erst seit heute mit den Sockets arbeite.
Woran könnte es liegen?