unit wRelation; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, wObject; type TwRelation = class(TwObject) private { Private declarations } FRevision: string; FLOBID: string; FROBID: string; FLClassName: string; FRClassName: string; protected { Protected declarations } public { Public declarations } published { Published declarations } property Revision: string read FRevision write FRevision; property LOBID: string read FLOBID write FLOBID; property ROBID: string read FROBID write FROBID; property LClassName: string read FLClassName write FLClassName; property RClassName: string read FRClassName write FRClassName; end; implementation end.