Client/Server- Socket Sendeprobleme

[buyden]

Hi,
ich möchte mittels Client/Server-Socket Strings übers Netzwerk verschicken.
Dazu hab ich folgenden Code:
ServerSocket:

Delphi-Quellcode:

procedure Tfrmmain.FormCreate(Sender: TObject);
begin
  list:=tstringlist.Create;
  server.Port:=10024;
  server.Open;
  list.Append(formatdatetime('dd.mm.yyyy-hh:mm:ss',now)+' - Server gestartet');
  memmain.Lines:=list;
  list.SaveToFile('mcserver.log');
end;

procedure Tfrmmain.ServerClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  list.insert(0,formatdatetime('dd.mm.yyyy-hh:mm:ss',now)+' - Client verbunden');
  memmain.Lines:=list;
  list.SaveToFile('mcserver.log');
end;

procedure Tfrmmain.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memmain.Lines.Insert(0,server.socket.ReceiveText);
end;

Client:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if client.Active=false then
  begin
    client.Host:='127.0.0.1';
    client.Port:=10024;
    client.open;
    button2.Caption:='Disconnect';
  end
  else
  begin
    client.Close;
    button2.Caption:='Connect';
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if client.Active=true then
    client.Socket.SendText(edit1.Text);

end;

Das Verbinden funktioniert, auch das Trennen auf die gleiche Weise aber beim Senden bekomm ich immer nen Fehler, dass der Socket nicht verbunden ist und keine Adresse angegeben wurde.

Was mach ich falsch???