unit wRoot; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, w_bases; type TwRoot = class(TComponent) private { Private declarations } FName: AnsiString; FOBID: AnsiString; FwClassName: AnsiString; protected { Protected declarations } public { Public declarations } published { Published declarations } property Name: AnsiString read FName write FName; property OBID: AnsiString read FOBID write FOBID; property wClassName: AnsiString read FwClassName write FwClassName; end; implementation end.