unit clsUsers;

interface

uses
  From1, Form2;

 type
   TUsers = class(TObject)
  private
    fUserID : Integer ;
  public
    constructor Create ;
    procedure setUserID(iUserID : integer) ;
    function getUserID : integer ;
  end;

implementation

{ TUsers }

constructor TUsers.Create;
begin

end;

function TUsers.getUserID: integer;
begin
  Result := fUserID ;
end;

procedure TUsers.setUserID(iUserID : integer) ;
begin
  fUserID := iUserID ;
end.