Record per Memorystream versenden - wie?

[JocalAreaNetwork]

Delphi-Quellcode:

var 
  stream:tmemorystream
  rec:tmyrecord;

stream := nil;
try
  stream := tmemorystream.create;
  stream.write(rec, sizeof(rec));
  // verschicke stream
finally
  freeandnil(stream);
end;