unit AlarmLog; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, wItem; type TAlarmLog = class(TwItem) private { Private declarations } FMachName: string; FMachType: string; FSendMsg: string; FSendMsgDate: string; FSendMsgTime: string; FSendMsgEmp: string; FAlarmDate: string; FAlarmTime: string; FAlarmType: string; FAlarmSeverity: string; FAlarmStatus: string; FSensorName: string; protected { Protected declarations } public { Public declarations } published { Published declarations } property MachName: string read FMachName write FMachName; property MachType: string read FMachType write FMachType; property SendMsg: string read FSendMsg write FSendMsg; property SendMsgDate: string read FSendMsgDate write FSendMsgDate; property SendMsgTime: string read FSendMsgTime write FSendMsgTime; property SendMsgEmp: string read FSendMsgEmp write FSendMsgEmp; property AlarmDate: string read FAlarmDate write FAlarmDate; property AlarmTime: string read FAlarmTime write FAlarmTime; property AlarmType: string read FAlarmType write FAlarmType; property AlarmSeverity: string read FAlarmSeverity write FAlarmSeverity; property AlarmStatus: string read FAlarmStatus write FAlarmStatus; property SensorName: string read FSensorName write FSensorName; end; implementation end.