unit MaterialData; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, w_bases, wItem; type TMaterialData = class(TwItem) private { Private declarations } FOrdNum: AnsiString; FOrdCode: AnsiString; FStandard: AnsiString; FKind: AnsiString; FStatus: AnsiString; FDescriptions: AnsiString; protected { Protected declarations } public { Public declarations } published { Published declarations } property OrdNum: AnsiString read FOrdNum write FOrdNum; property OrdCode: AnsiString read FOrdCode write FOrdCode; property Standard: AnsiString read FStandard write FStandard; property Kind: AnsiString read FKind write FKind; property Status: AnsiString read FStatus write FStatus; property Descriptions: AnsiString read FDescriptions write FDescriptions; end; implementation end.