At sende fra en server-socket

Jeg har en Server socket hvor til jeg har oprettet følgende kode:

procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var s:string;
begin
  S := socket.ReceiveText;
  socket.SendText(S);
end;

Jeg echoer altså hvad jeg får ind ud igen, hvilket virker fint.


Men hvis jeg forsøger at sende et andet sted i programmet går det ned f.eks ved følgende kode

procedure TForm1.Button1Click(Sender: TObject);
begin
  Server.Socket.SendText(\'Send denne tekst\');
end;

Er der nogen som kan fortælle mig hvad som går galt
/Dennis