unit MachMonitoring; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, wItem; type TMachMonitoring = class(TwItem) private { Private declarations } FMachCode: string; FStatus: string; FStartDate: string; FStartTime: string; FEndDate: string; FEndTime: string; protected { Protected declarations } public { Public declarations } published { Published declarations } property MachCode: string read FMachCode write FMachCode; property Status: string read FStatus write FStatus; property StartDate: string read FStartDate write FStartDate; property StartTime: string read FStartTime write FStartTime; property EndDate: string read FEndDate write FEndDate; property EndTime: string read FEndTime write FEndTime; end; implementation end.