Fehlermeldung Asynchron

[MrGabba]

Hallo, ich weiss, dass dieses Thema schon oft behandelt wurde und es wird wahrscheinlich auch nur ein Anfängerfehler sein, aber ich hab schon gegoogelt und nichts gefunden.
Ich will ein Programm schreiben, das mit dem Server-Client Prinzip funktioniert und Daten übers Netzwerk austauscht. Ich hab einfach mal mit nem einfachen Beispiel angefangen und wollte nur nen Text verschicken. Sobald ich aber den Client aktiviere zeigt mir Delphi eine Fehlermeldung:


Im Projekt Projekt 1.exe ist eine Exeption der Klasse ESocketError aufgetreten. Meldung: 'Asnchroner Socket-Fehler 10049'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.


Ich poste einfach mal den Quelltext.

Delphi-Quellcode:

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);{On ClientRead}
begin

  MSG:=Socket.ReceiveText ;


  Memo1.Lines.Add(MSG);
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
Client:= TClientSocket.Create(Form1);

  Client.Port:=10024;

  Client.Host:='127.0.0.1';

  Client.Open;
  client.Active := true; {Anscheinend die Zeile die den Fehler verursacht}



  Client.Socket.SendText('Hallo!');


  Client.Close;
end;

procedure TForm1.init(Sender: TObject);
begin


  Server:= TServerSocket.Create(Form1);

  Server.Port:=10024;

  Server.Open;
  Server.Active := true;

end;

Wie kann ich diesen Fehler beheben?

Danke im Voraus

MrGabba