unit WorkSchedule; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, wItem; type TWorkSchedule = class(TwItem) private { Private declarations } FOrdDate: string; FMachName: string; FMachCode: string; FQty: string; FUnitt: string; FDescriptions: string; FStatus: string; protected { Protected declarations } public { Public declarations } published { Published declarations } property OrdDate: string read FOrdDate write FOrdDate; property MachName: string read FMachName write FMachName; property MachCode: string read FMachCode write FMachCode; property Qty: string read FQty write FQty; property Unitt: string read FUnitt write FUnitt; property Descriptions: string read FDescriptions write FDescriptions; property Status: string read FStatus write FStatus; end; implementation end.