udpclient.Active:=true;
udpclient.Sendln(cmd,#$D);
if udpclient.Connect then
begin
data:=udpclient.Receiveln(#$D);
end;
udpclient.Active:=False;
delphi 使用UDP收发数据
原文：http://my.oschina.net/jingshishengxu/blog/499007
