怎么用udp协议发送信息?

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  mystream:tmemorystream;
begin
  if memo1.text<>'' then
  begin
  mystream:=TMemoryStream.Create;
  memo1.lines.SaveToStream(mystream);
  NMUDP1.RemoteHost:='127.0.0.1';
  NMUDP1.SendStream(mystream);
  end;
end;procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
var
  mystream:tmemorystream;
begin
  mystream:=tmemorystream.Create;
  NMUDP1.ReadStream(mystream);
  memo1.lines.LoadFromStream(mystream);
end;