大家帮我看看

Question

procedure Tform1.BitBtn1Click(Sender: TObject);
var mystream:tmemorystream;
    tmpstr:string;
    i:integer;
begin
if edit1.text<>''
then
  begin
    nmudp1.ReportLevel:=status_basic;
    nmudp1.localport:=8888;
    nmudp1.remoteport:=8888;
    if listbox1.items[listbox1.ItemIndex]=computername
    then memo1.lines.add(computername+'say to himself'+edit1.text)
    else memo1.lines.add(computername+'say to'+listbox1.Items[listbox1.itemindex]+edit1.text);
    tmpstr:=edit1.text;
    //mystream.create;
    mystream :=TMemoryStream.Create; 
    //try
    MyStream.Write(TmpStr,Length(Edit1.Text));
    if listbox1.itemindex=0
    then
      begin
        for i:=1 to listbox1.items.count-1 do
        begin
        nmudp1.remotehost:=listbox1.items[i];
        nmudp1.sendstream(mystream);
        end
      end
    else
      begin
      nmudp1.remotehost:=listbox1.Items[listbox1.itemindex];
      nmudp1.sendstream(mystream);
      end;
    //finally
    //mystream.free;
    //end;
    edit1.text:='';
    edit1.setfocus;
  end
else edit1.setfocus;
end;出现下面的错误
---------------------------
Project1: Project1.exe - 应用程序错误
---------------------------
"0x00402f86" 指令引用的 "0x0004c259" 内存。该内存不能为 "read"。
要终止程序，请单击“确定”。
要调试程序，请单击“取消”。
---------------------------
确定   取消   
---------------------------
接着出现下面的错误
---------------------------
Project1: Project1.exe - 应用程序错误
---------------------------
"0x00402f86" 指令引用的 "0x0004c259" 内存。该内存不能为 "read"。
要终止程序，请单击“确定”。
---------------------------
确定   
---------------------------
然后就调用delphi调试，提示参数错误