PaulTSmith

private
    { Private declarations }
    JSONLogin: TJSONObject;
    JSONResponse1, JSONResponse2: TJSONObject;
    sCleanedSessionID, sCleanedSessionToken: string;
    procedure login(sEmail, sPassword: string);
    procedure GetDataFromTable(sTableName: string);
  public
    { Public declarations }
  end;