unit UiContext; interface const mrLogin = 101; mrHome = 102; type TUiContext = class private fInitialen: String; fLoginCode: String; fPallet: String; fToelevering: String; public Property Initialen: String Read fInitialen Write fInitialen; Property LoginCode: String Read fLoginCode Write fLoginCode; Property Pallet: String Read fPallet Write fPallet; Property Toelevering: String Read fToelevering Write fToelevering; end; implementation { TUiContext } end.