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