unit CustMst; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, wItem; type TCustMst = class(TwItem) private { Private declarations } FOrdCode: string; FKind: string; FCustTelNum: string; FCeoName: string; FConnPerson: string; FBusinessNum: string; FConnPersonTel: string; FCustAddress: string; FDescriptions: string; protected { Protected declarations } public { Public declarations } published { Published declarations } property OrdCode: string read FOrdCode write FOrdCode; property Kind: string read FKind write FKind; property CustTelNum: string read FCustTelNum write FCustTelNum; property CeoName: string read FCeoName write FCeoName; property ConnPerson: string read FConnPerson write FConnPerson; property BusinessNum: string read FBusinessNum write FBusinessNum; property ConnPersonTel: string read FConnPersonTel write FConnPersonTel; property CustAddress: string read FCustAddress write FCustAddress; property Descriptions: string read FDescriptions write FDescriptions; end; implementation end.