下面是发送按钮的代码部分：

procedure TForm1.BitBtn3Click(Sender: TObject);

 var

 chatinfo:string;

 chatinfobuf:array[0..2030]of char;

 f:textfile;

begin

     chatinfo:=format('%-6s%-255s%-1024s',['CHAT',myname,memo1.Lines.Text]);

     strpcopy(chatinfobuf,chatinfo);

     client.Broadcast(chatinfobuf,9000);

end;