unit wSession; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, wObject; type TwSession = class(TwObject) private { Private declarations } FUserID: string; FUserPWD: string; FServerName: string; FServerPort: string; FHostName: string; FCompanyName: string; FClearDateTime: string; protected { Protected declarations } public { Public declarations } published { Published declarations } property UserID: string read FUserID write FUserID; property UserPWD: string read FUserPWD write FUserPWD; property ServerName: string read FServerName write FServerName; property ServerPort: string read FServerPort write FServerPort; property HostName: string read FHostName write FHostName; property CompanyName: string read FCompanyName write FCompanyName; property ClearDateTime: string read FClearDateTime write FClearDateTime; end; implementation end.