下面这段远程开机代码，我实现不了也...（我是水货）

procedure TForm1.Button1Click(Sender: TObject);
var
  SendCode:string;
  TempStr:string;
  i:byte;
begin
  SendCode:=StringofChar(#255,6);
  for i:=0 to 15 do
      begin
      TempStr:=TempStr
              +string(char($00))
              +string(char($50))
              +string(char($BA))
              +string(char($EC))
              +string(char($71))
              +string(char($A6));
      end;
  SendCode:=SendCode+TempStr;
  UDPSend(SendCode);
end;
procedure TForm1.UDPSend(SendCode: String);
var
  SendMStream:TMemoryStream;
begin
  SendMStream:=TMemoryStream.Create;
  try
    NMUDP1.ReportLevel:=1;
    NMUDP1.RemoteHost:='188.0.255.255';
    NMUDP1.RemotePort:=7010;
    SendMStream.Write(SendCode[1],length(SendCode));
    NMUDP1.SendStream(SendMStream);
  finally
    SendMStream.Free;
  end;
end;
请说明白点，最好整个表单里的代码全贴上来...谢谢