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