안녕하세요..
채팅 프로그램 만들어 볼려구 하는데요...
밑에 소스와 같이 코딩했는데.. 데이터가 안날아갑니다.

procedure TForm2.Button1Click(Sender: TObject);
var
  MsgBuf : array [0..1023] of char;
  MsgLine : String;
begin
  MsgLine := '['+Main.M_ID+']'+' : '+Edit1.Text;
  RichEdit1.Lines.Add(MsgLine);

  StrCopy(MsgBuf, PChar(MsgLine));

  try
    CSock.Socket.SendBuf(MsgBuf, sizeof(MsgBuf));
  except
    showMessage('error');
    RichEdit1.Lines.Add('Can''t write this Message');
    RichEdit1.Lines.Add(Edit1.text);
  end;
  Edit1.Text := '';
  Edit1.setFocus;
end;

소켓은 분명 연결 되어있거든요.. 근데 메세지가 안날아갑니다..
소켓으 onWrite 이벤트에
showMessage('write');
이거 한줄 추가해봤거든요.. 근데 이 메세지도 뜨지 않습니다..
코드는.. 맞는거 같은데.. 왜 .. 안되는건지... 모르겠습니다..
부탁드립니다..