用nmudp通讯为何出现乱码?

Question

MEMO1为什么显示乱码?(XP+DELPHI6)
该处为BORLAND delphi6 帮助中nmudp ReadStream method的源代码procedure TForm1.NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer);
var
  C: String;
  MyStream: TMemoryStream;
begin
  MyStream := TMemoryStream.Create;
  try
    NMUDP1.ReadStream(MyStream);
    SetLength(C, NumberBytes);
    MyStream.Read(C[1], NumberBytes);
    Memo1.Lines.Add(C+': received '+IntToStr(NumberBytes)+' bytes from '+FromIP+' on port '+IntToStr(Port));
  finally
    MyStream.Free;
  end;
end;