求答案，各位同志请进！！！！！！！(100分)

我在DLL中写了这个函数
procedure senddata(memory: Tstream);
begin
nmudp1 := tnmudp.Create(nil);
NMUDP1.ReportLevel := Status_Basic;
NMUDP1.RemotePort := 6001;
NMUDP1.RemoteHost := getBroadCastIp(GetLocalIP);
NMUDP1.SendStream(memory);
nmudp1.Free;
end;
在其它程序中写下这段，结果出错，为什么？
procedure TForm1.Button1Click(Sender: TObject);
var memory : tmemorystream;
s: string;
begin
s:='aaaaaaa';
memory := tmemorystream.Create ;
memory.Write(s,length(s));
memory.Position :=0;
senddata(memory); //
memory.Free;
end;

具本報什麼錯呢?

解决了.

接受答案了.