TStream lub TMemoryStream jak wstawić do tego np. type d=rec

Jak do TStream Wstawić

type trekord=record
x:single;
y:single;
z:single;
end;

i jak odczytać taką wartość z TStream mozna uzyc Tmemorystream :P

type
  TMyRec = record
    a: Integer;
    b: Integer;
  end;

procedure TForm1.btn1Click(Sender: TObject);
var
  s: TMemoryStream;
  r1, r2: TMyRec;
begin
  s := TMemoryStream.Create;
  r1.a := 10;
  r1.b := 40;
  s.Write(r1, SizeOf(TMyRec));
  s.SaveToFile('c:\a.txt');
  s.Seek(0, soFromBeginning);
  s.Read(r2, SizeOf(TMyRec));
  MessageDlg(IntToStr(r2.a) + #13#10 + IntToStr(r2.b), mtInformation, mbOKCancel, 0);
end;

dziekuje misiu D