delphi 使用UDP收发数据

udpclient.Active:=true; 

udpclient.Sendln(cmd,#$D); 

if udpclient.Connect then

 begin     

data:=udpclient.Receiveln(#$D);

 end; 

udpclient.Active:=False;

原文：http://my.oschina.net/jingshishengxu/blog/499007