unit MaterialMst; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, wItem; type TMaterialMst = class(TwItem) private { Private declarations } FMatCode: string; FDescriptions: string; protected { Protected declarations } public { Public declarations } published { Published declarations } property MatCode: string read FMatCode write FMatCode; property Descriptions: string read FDescriptions write FDescriptions; end; implementation end.