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