delphi 使用UDP收发数据

udpclient.Active:=true; 

udpclient.Sendln(cmd,#$D); 

if udpclient.Connect then

 begin     

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

 end; 

udpclient.Active:=False;