type

  {$M+} // 此处必须加编辑开关

  TTest = class

  private

    fid: Integer;

    fname2: string;

  published // 对象的属性必须是published

    property id: Integer read fid write fid;

    property name2: string read fname2 write fname2;

  end;

procedure TForm1.ToolButton3Click(Sender: TObject);

var

  t, t2: TTest;

  d, d2: TynSerial;

  s: string;

begin

  // 序列

  t := TTest.Create;

  t2 := TTest.Create;

  d := TynSerial.Create;

  t.id := 123;

  t.name2 := '姓名';

  d.WriteObject(t);

  s := d.Text;

  // 还原

  d2 := TynSerial.Create;

  d2.Text := s;

  d2.ReadObject(t2);

  Memo1.Lines.Add(IntToStr(t2.id));

  Memo1.Lines.Add(t2.name2);

  // 释放

  t.Free;

  t2.Free;

  d.Free;

  d2.Free;

end;