var
buf:array [0..3] of char;
begin


buf:=chr($00) + chr($D2) + chr('$' + EDIT1.TEXT);  ///这里有问题~~我想改它灵活一点~
                                                      不知道变什么量?
Socket.SendBuf(buf,sizeof(buf));

end;