チャットツールを作成しているのですが鯖から蔵へメッセージを送る際にエラーが出て送れません

Kazuki 2007-04-13 11:51:30 No: 25764

タイトルの通りなのですが
procedure TChatServer.ButtonOnlineClick(Sender: TObject);
begin
  ServerSocket1.Port := SpinEdit1.value;
  ServerSocket1.Open;
  Memo1.Lines.Add('接続待機')
end;

procedure TChatServer.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('接続確認');
end;

procedure TChatServer.ButtonSendClick(Sender: TObject);
begin
  ServerSocket1.Socket.SendText(Edit1.Text);
  Memo1.Lines.Add('<' + Edit1.Text);
  Edit1.Text := '';
end;

このやり方で鯖からメッセージを送ろうとすると

Windows ソケットエラー：ソケットが接続されていないか、sendto 呼び出しを使ってデータグラムソケットで送信するときにアドレスが指定されていないため、データの送受信を要求することは禁じられています。 (10057)[API 'sendto']

というエラーが出て送れていないようなのです
どのようにすれば送れるのかご教授ください

deldel 2007-04-13 23:21:56 No: 25765

ここが参考になるかもです。
http://www.ipc.hokusei.ac.jp/~z00104/delphi/exercise10.html

ClientとServerがごっちゃになってませんか？？？