unit ProductInspect; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, wItem; type TProductInspect = class(TwItem) private { Private declarations } FInspPerson: string; FInspDate: string; FInspQty: string; FGoodQty: string; FDefQty: string; FDescriptions: string; protected { Protected declarations } public { Public declarations } published { Published declarations } property InspPerson: string read FInspPerson write FInspPerson; property InspDate: string read FInspDate write FInspDate; property InspQty: string read FInspQty write FInspQty; property GoodQty: string read FGoodQty write FGoodQty; property DefQty: string read FDefQty write FDefQty; property Descriptions: string read FDescriptions write FDescriptions; end; implementation end.