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

Kazuki 2007-04-13 02:51:30 No: 25764 IP: 192.*.*.*

タイトルの通りなのですが
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 14:21:56 No: 25765 IP: 192.*.*.*

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

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

編集削除