recordの初期化 (ID:37744)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 procedure BagReset(B: TBag); これを procedure BagReset(var B: TBag); にすればOKです。