unit wItem; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, wObject; type TwItem = class(TwObject) private { Private declarations } FLcStatus: string; protected { Protected declarations } public { Public declarations } published { Published declarations } property LcStatus: string read FLcStatus write FLcStatus; end; implementation end.