unit MaterialDataR; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, wRelation; type TMaterialDataR = class(TwRelation) private { Private declarations } FOrdNum: string; protected { Protected declarations } public { Public declarations } published { Published declarations } property OrdNum: stringv read FOrdNum write FOrdNum; end; implementation end.