如何把记录类型的变量的内容写入TMemoryStream中,再从TMemoryStream中读出来

Question

procedure TForm1.Button2Click(Sender: TObject);
type
  MyData = record
    Name: String[8];
    Address: String[20];
  end;
var
  Data, readData: MyData;
  myStream:TMemoryStream;
begin
  Data.Name := 'LEE';
  Data.Address := 'China';
  myStream := TMemoryStream.Create;
  myStream.Write(Data, SizeOf(MyData));
  myStream.Position := 0; //这是我加的哦
  myStream.Read(readdata, SizeOf(MyData));
  ShowMessage(readData.Name);  myStream.Free;
end;