unit MachineMst; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, w_bases, wItem; type TMachineMst = class(TwItem) private { Private declarations } FMachCode: AnsiString; FMachDate: AnsiString; FCustName: AnsiString; FDescriptions: AnsiString; protected { Protected declarations } public { Public declarations } published { Published declarations } property MachCode: AnsiString read FMachCode write FMachCode; property MachDate: AnsiString read FMachDate write FMachDate; property CustName: AnsiString read FCustName write FCustName; property Descriptions: AnsiString read FDescriptions write FDescriptions; end; implementation end.